Excel Powerquery - モデル

Question

からデータを取得非常に簡単... ​​ - Excel PowerQueryを使用してクエリを作成しました。データは接続ではなく、シートではなく、Datamodelに追加しています。

単純なWHERE句でモデルの値を選択して、データをクエリするVBAを使用したいと思います。

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 

エラーがアプリケーションまたは定義されたモデルである...

おかげ

Answer 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")