Macro : send to Excel a pivot table with same format

[jaymerry]

Hello,

I am trying to create a button which permits the user to export Data of a pivot table chart directly on Excel, exactly like the "Send to Excel" icon on the caption bar but with the same format of the pivot table in Qlikview.

So, the result of this macro would be a merge of the functionnalities "Copy to clipboard" and "Send to Excel".

One of my constraint in this macro code is to not use "CreateObject("Excel.Application")" for security reason.

I have tried with the following code, but it doesn't work (only a simple export to Excel) :

SUB SendToExcel
'ID of the pivot table 
Set chart = ActiveDocument.GetSheetObject("CH100")
chart.CopyTableToClipboard True
SET p = chart.GetProperties
chart.SendToExcel
END SUB

Have you any ideas ?

Thanks for your help,

Best Regards,

Jaymerry