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导出透视表的主要内容,如果未能解决你的问题,请参考以下文章

用于标题组的数据透视表导出 excel

Access VBA:将表导出到 Excel 2010 数据透视表

oracle 数据透视表

Excel 数据透视表空白类别未正确显示

java 利用poi导出默认以表格展示的excel透视表

如何从 QlikView 连接到 Databricks Delta 表?