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”,这样就可以完成透视表的导出了，