Excel VBAでクエリを操作するときのメモ

表題の通りの記事です。実際にコーディングしながらメモを書いているので、網羅的ではありません。ちょくちょく追加・改訂します。

できるだけMicrosoft Docsなどをリンクしますので、不明な点はリンク先などを見て確認ください。

この記事の内容

Queriesオブジェクト
WorkbookQueryオブジェクト

Queriesオブジェクト

https://docs.microsoft.com/ja-jp/office/vba/api/excel.queries

「Queriesオブジェクト」とありますけども、「Queriesコレクション」って感じですね。

メソッド「Add」

https://docs.microsoft.com/ja-jp/office/vba/api/excel.queries.add

例・新しいクエリを追加する
Activeworkbook.Queries.Add("サンプルクエリ",[Formula])

※[Formula]には、Power Queryの「詳細エディター」で表示される「letなんちゃらinどうちゃら」をそのまま入れる。
※Formulaは直書きしても作れるが文字列型変数で渡すのがおすすめ。
　　・直書きすると長くなる
　　・途中改行は VBA的に _ で改行しても反映されず、CHR(13)&CHR(10)が必要
　　・ダブルクォーテーション " は、2個並べてエスケープする必要

メソッド「Item」

https://docs.microsoft.com/ja-jp/office/vba/api/excel.queries.item

例・クエリの名前を表示する
○　Activeworkbook.Queries.Item(数字).Name
○　Activeworkbook.Queries(数字).Name  ※ Itemは省略可
　　※数字は１から開始。０はなく、エラーになります
×　Queries(数字).Name
　　※親Workbookを省略できません。エラーになります。

WorkbookQueryオブジェクト

https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbookquery

QueriesオブジェクトのItemメソッドの戻り値が、WorkbookQueryオブジェクトです。

例
Activeworkbook.Queries(1)
Activeworkbook.Queries("サンプル")
など

変数宣言する場合もこのように

Dim Querybuf as WorkbookQuery
For Each Querybuf in Activeworkbook.Queries
...
Next Querybuf

プロパティは

.Application
.Creator
.Description
.Formula 　←よく使う
.Name　　←よく使う
.Parent