qlikview使用VBS导出透视表

很多时候用户会有这样的需求，就是qlikview设计好的一张透视表，如果直接用qlikview的send to excel功能，那么导出之后已经没有pivot table的效果的，如下图





那么下面我用宏导出这张透视表，导出后格式与qlikview一致，代码如下：

sub Export

set XLApp = CreateObject("Excel.Application") ' Define Object

XLApp.Visible = True 'Visible set as true

set XLDoc = XLApp.Workbooks.Add 'Open new workbook

set table = ActiveDocument.GetSheetObject("CH03") ‘CH03为对象ID

set XLSheet = XLDoc.Worksheets(1) 'Select sheet where data should be pasted

table.CopyTableToClipboard true 'Copy data to Clipboard

XLSheet.Paste XLSheet.Range("A1") 'Paste data into cell

end sub

在这段代码中，我的透视表对象是“CH03”,这样就可以完成透视表的导出了，