用vba从excel中拉取qlikview数据到excel中

Sub PullQlikViewData()
    ' 创建QlikView对象
    Dim qvApp As Object
    Set qvApp = CreateObject("QlikTech.QlikView")
    
    ' 打开QlikView文档
    qvApp.OpenDocument ("C:\Path\To\QlikViewDocument.qvw")
    
    ' 获取QlikView数据表
    Dim qvTable As Object
    Set qvTable = qvApp.GetSheetObject("QlikViewTable")
    
    ' 获取数据行数和列数
    Dim rowCount As Long
    Dim colCount As Long
    rowCount = qvTable.GetRowCount
    colCount = qvTable.GetColumnCount
    
    ' 将数据写入Excel工作表
    Dim excelSheet As Worksheet
    Set excelSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为目标工作表的名称
    
    ' 清空工作表中的数据
    excelSheet.Cells.Clear
    
    ' 写入表头
    For col = 1 To colCount
        excelSheet.Cells(1, col).Value = qvTable.GetColumnName(col)
    Next col
    
    ' 写入数据
    For row = 1 To rowCount
        For col = 1 To colCount
            excelSheet.Cells(row + 1, col).Value = qvTable.GetCellValue(row, col)
        Next col
    Next row
    
    ' 关闭QlikView文档
    qvApp.CloseDocument
    
    ' 释放QlikView对象
    Set qvTable = Nothing
    Set qvApp = Nothing
    
    MsgBox "数据已成功导入Excel工作表。"
End Sub