qlikview使用VBS导出透视表
Posted xcxp小胖
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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”,这样就可以完成透视表的导出了,
以上是关于qlikview使用VBS导出透视表的主要内容,如果未能解决你的问题,请参考以下文章