PowerQuery VBAマクロでクエリを更新する｜順番に実行する

まず「更新したいクエリ」と 「全クエリ実行用マクロ」 を準備します。

例として下図の元データをフィルタする「クエリA」「クエリB 」と 上述したコードを記載したマクロ 「test」を用意します。

• クエリA：元データを商品IDが「A」の行を抽出
• クエリA：元データを商品IDが「B」の行を抽出
• マクロtest：全クエリ実行用マクロ

元データが修正されたと仮定して、元データの一部を変更します。ここでは、6行目のAをBに変更しています。

1. 開発タブにあるマクロをクリックする。
2. クエリを実行するマクロを選択して実行をクリックする。

以上で全てのクエリの更新が完了です。

下図のようにクエリが実行されてクエリAとクエリBの結果が変わっています。

まず「更新したいクエリ」と 「全クエリ実行用マクロ」 を準備します。

例として下図の元データをフィルタする「クエリA」「クエリB 」と 上述したコードを記載したマクロ 「test」を用意します。そしてクエリAのみを実行します。

• クエリA：元データを商品IDが「A」の行を抽出
• クエリA：元データを商品IDが「B」の行を抽出
• マクロtest：クエリA実行用マクロ（下記参照）

Sub test()
    ActiveSheet.ListObjects("クエリA").QueryTable.Refresh
End Sub

元データが修正されたと仮定して、元データの一部を変更します。ここでは、6行目のAをBに変更しています。

1. 開発タブにあるマクロをクリックする。
2. クエリを実行するマクロを選択して実行をクリックする。

以上でクエリAの更新が完了です。クエリAのみが更新されており、クエリBは元のまま変わっていません。

まず「更新したいクエリ」と 「全クエリ実行用マクロ」 を準備します。

例として下図の元データをフィルタする「クエリA」「クエリB 」と 上述したコードを記載したマクロ 「test」を用意します。そしてクエリAとクエリBを順番にマクロで実行します

• クエリA：元データを商品IDが「A」の行を抽出
• クエリA：元データを商品IDが「B」の行を抽出
• マクロtest：クエリ順次実行用マクロ（下記参照）

Sub test()
    Dim querylist As Variant
    Dim query As QueryTable
    Dim queryname As Variant
    
    querylist = Array("クエリA", "クエリB")
    For Each queryname In querylist
        Set query = ActiveSheet.ListObjects(queryname).QueryTable
        query.Refresh BackgroundQuery:=False
        Do While query.Refreshing
            DoEvents
        Loop
        MsgBox ("クエリ更新完了")
    Next
End Sub

ここでは、更新が順番に確認するためにクエリが一つ更新されるごとにメッセージボックスが表示されるように変更しています。実際に使用する場合は、「MsgBox (“クエリ更新完了”)」は削除してください。

元データが修正されたと仮定して、元データの一部を変更します。ここでは、6行目のAをBに変更しています。

1. 開発タブにあるマクロをクリックする。
2. クエリを実行するマクロを選択して実行をクリックする。

マクロ実行後、まずはクエリAが実行され完了後にメッセージボックスが表示されます。クエリAの結果だけが更新されています。

メッセージボックスのOKをクリックすると、続いてクエリBが更新されて再度メッセージボックスが表示されます。このように順番にクエリが実行されます。

以上でクエリの順次実行は完了です。