Macro : send to Excel a pivot table with same format

jaymerry — Fri, 16 Mar 2012 08:45:30 GMT

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

topic Macro : send to Excel a pivot table with same format in QlikView

Macro : send to Excel a pivot table with same format