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匯出透視表