Excel Power Query - 从模型中获取数据答案

【问题标题】：Excel Powerquery - Get data from ModelExcel Power Query - 从模型中获取数据
【发布时间】：2017-11-08 10:24:01
【问题描述】：

很简单... - 我使用 Excel PowerQuery 创建了一个查询，并将数据仅作为连接加载，而不是在工作表中，并添加到 Datamodel。

我现在想通过 VBA 查询数据，使用简单的 WHERE 子句在模型中选择一个值。

我尝试使用ActiveWorkbook.Connections 等，但未成功（设置了对 Activex 数据对象的引用）。应该怎么走？这是我正在测试的代码：

Public Sub SelectPQData()
Dim conn As Connection
Dim sheet As Excel.Worksheet

On Error GoTo MyFail

Set conn = ActiveWorkbook.Connections.Item(1).ModelConnection

错误是应用程序或模型定义的...

谢谢

【问题讨论】：

标签： excel vba powerquery

【解决方案1】：

您可以尝试这样的方法来设置连接...

Dim conn As WorkbookConnection
Dim cn As WorkbookConnection

For Each cn In ThisWorkbook.Connections
    If cn.Name = "ThisWorkbookDataModel" Then
        Set conn = cn
        Exit For
    End If
Next cn

或者只是这个..

Set Conn = ThisWorkbook.Connections("ThisWorkbookDataModel")

【讨论】：