谁写过把POWERQUETY查询结果写入数组

chenwenyong

我有POWERQUERY查询连接（仅连接，不写入表格），我想把查询结果写入数组（大神们不要考虑值不值，或者其他辅助环节，我就是想把结果写入数组）！
我在BING问出的代码如下：
Sub GetDataFromPowerQueryConnection()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim ws As Worksheet
    Dim i As Integer
   
    ' 创建连接和记录集对象
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
   
    ' 定义Power Query连接字符串
    conn.ConnectionString = "Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$"
   
    ' 打开连接
    conn.Open
   
    ' 定义SQL查询语句
    sql = "SELECT * FROM [YourQueryName]"
   
    ' 执行查询
    rs.Open sql, conn
   
    ' 将数据写入工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Cells.ClearContents
   
    ' 写入列标题
    For i = 1 To rs.Fields.Count
        ws.Cells(1, i).Value = rs.Fields(i - 1).Name
    Next i
   
    ' 写入数据
    ws.Cells(2, 1).CopyFromRecordset rs
   
    ' 关闭记录集和连接
    rs.Close
    conn.Close
   
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
   
    MsgBox "数据已成功获取并写入工作表！"
End Sub

但是在CONN.OPEN这里始终过不了！不知道是代码问题还是版本问题

ZHLK

这里有问题
没源数据，不能测试

chenwenyong

ZHLK 发表于 2024-9-16 10:55
这里有问题
没源数据，不能测试

chenwenyong

这个数据兄弟随便造两个就行,我看代码就是$workbook$

ZHLK

你发个数据过来看看，你这个是什么数据？

excel玉米

sql = "SELECT * FROM [YourQueryName]
这个[YourQueryName]对你来说应该是改为[贷还表]

chenwenyong

excel玉米 发表于 2024-9-16 17:19
sql = "SELECT * FROM [YourQueryName]
这个[YourQueryName]对你来说应该是改为[贷还表]

现在是到了CONN.OPEN就卡住了，还没有到SQL这步！因为是头一次通过用VBA获取PQ数据，所以我不知道问题在哪里

lss001

chenwenyong 发表于 2024-9-16 22:54
现在是到了CONN.OPEN就卡住了，还没有到SQL这步！因为是头一次通过用VBA获取PQ数据，所以我不知道问题在 ...

    '从查询dqy文件获取的Power Query连接字符串

    src = "DNS=Excel Files"
    src = src & ";DBQ=" & ThisWorkbook.FullName
    src = src & ";DriverId=1046"
    src = src & ";FIL=excel 12.0"
    src = src & ";MaxBufferSize=2048"
    src = src & ";PageTimeout=5;"

chenwenyong

lss001 发表于 2024-9-18 21:57
'从查询dqy文件获取的Power Query连接字符串

    src = "DNS=Excel Files"

多谢，明天测试

WANT-T

我要的是葫芦，哈哈哈