Export Pivot Table to Excel

Anonymous — Mon, 28 May 2012 12:29:23 GMT

Hi,

I have the ffg macro that exports two pivot tables and works :

sub sendExcel

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = FALSE

set XLDoc = XLApp.Workbooks.Add

XLDoc.Sheets(1).name = "By FundCode"

set XLSheet = XLDoc.Worksheets(1)

set MyTable = ActiveDocument.GetSheetObject("CH05")

set XLSheet = XLDoc.Worksheets(1)

MyTable.CopyTableToClipboard true

XLSheet.Paste XLSheet.Range("A1")

set MyTable = ActiveDocument.GetSheetObject("CH04")

MyTable.CopyTableToClipboard true

XLSheet.Paste XLSheet.Range("H1")

XLDoc.SaveAs "Decalog.xls"

XLApp.Visible = False

XLApp.Quit

Set XLApp = Nothing

Set Table = Nothing

end sub

I am also trying to export 2 more pivot tables into the same excel workbook but into different sheets, I have tried for hours to crack this but can't seem to get it right....

Any help will be appreciated...

Regards

Razak

topic Export Pivot Table to Excel in QlikView

Export Pivot Table to Excel