Callステートメントが1つ目しか実行されない

Question

前提・実現したいこと

複数ブックのマクロを別のブックから一括で実行したい。

・特定のブック1を開き、順番通りにクエリを更新し、最終結果を別のcsvにコピペする
・特定のブック2を開き、順番通りにクエリを更新し、最終結果を別のcsvにコピペする
～
・特定のブック25を開き、順番通りにクエリを更新し、最終結果を別のcsvにコピペする

という内容を、Callステートメントを使い、別ブックのマクロ一回で処理させようとしています。

発生している問題・エラーメッセージ

Sub 一括result更新()
    Call result更新1
    Call result更新2
End Sub

上記マクロを実行しても、1つ目（result更新1）しか実行されない。
（これをresult更新25まで一気にやりたいです）

該当のソースコード

result更新1は、別ブックを開き、"データ更新test"というマクロを実行します。
result更新2は、ankenNo = 2になるだけの違いです。

Sub result更新1()
    'Dim excelFileFullPath As String
    Dim macroName As String
    Dim wk As Workbook
    
    ankenNo = 1
    
    
    '「呼び出される用のExcelファイル」のフルパスを指定
    excelFileFullPath = ActiveSheet.ListObjects("master").DataBodyRange.Cells(ankenNo, 1)
    '呼び出される用のマクロ名(プロシージャ名)を指定
    macroName = "データ更新test"
    
    '「呼び出される用のExcelファイル」を開く
    Set wk = Workbooks.Open(Filename:=excelFileFullPath)
    
    '呼び出される用のマクロ(プロシージャ)を実行
    Run "'" & excelFileFullPath & "'!'" & macroName & "'"

End Sub

上記で呼び出され、特定のブック1~25内で実行される"データ更新test"のコードは下記です。

Sub データ更新test()
' データ更新 Macro'

    ActiveWorkbook.Connections("クエリ - result_original").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - result_カテゴリ変更").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - result_除外").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - 着予_result").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - result_媒体粒度").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - result_CPN粒度").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - result").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - 着予_plan").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - shamei_retargeting").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - CPN_unique").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("クエリ - ADG_unique").OLEDBConnection.BackgroundQuery = False

        
    ActiveWorkbook.Connections("クエリ - result_original").Refresh
    ActiveWorkbook.Connections("クエリ - result_カテゴリ変更").Refresh
    ActiveWorkbook.Connections("クエリ - result_除外").Refresh
    ActiveWorkbook.Connections("クエリ - 着予_result").Refresh
    ActiveWorkbook.Connections("クエリ - result_媒体粒度").Refresh
    ActiveWorkbook.Connections("クエリ - result_CPN粒度").Refresh
    ActiveWorkbook.Connections("クエリ - result").Refresh
    ActiveWorkbook.Connections("クエリ - 着予_plan").Refresh
    ActiveWorkbook.Connections("クエリ - shamei_retargeting").Refresh
    ActiveWorkbook.Connections("クエリ - CPN_unique").Refresh
    ActiveWorkbook.Connections("クエリ - ADG_unique").Refresh
    
    'クエリ更新の最終結果をテンプレcsvに貼り付け
    Call result生成_自動
    
    ThisWorkbook.Close SaveChanges:=True
End Sub

result更新1は問題なく実行されるのですが、result更新2はスキップされてしまいます。

試したこと

result更新1内で、1~2のループ処理をしてみましたが、同じくresult更新1しか実行されませんでした。

データ更新test最後の

ThisWorkbook.Close SaveChanges:=True

が次のresult更新2の

    '「呼び出される用のExcelファイル」を開く
    Set wk = Workbooks.Open(Filename:=excelFileFullPath)

とバッティングしてしまっているのかもと素人目では思います。

VBAは完全素人で、ネット上の情報をかき集めながら作っています。
1日中ここでスタックしてしまっているので、お詳しい方の目から見た助言をいただけますと幸いです。

Answer 1

呼び出されたブック内で自ブックを閉じてはいけません。

呼び出し側でブックを開いているのですから、
閉じるのも呼び出し側でやりましょう。

'「呼び出される用のExcelファイル」を開く
Set wk = Workbooks.Open(Filename:=excelFileFullPath)

'呼び出される用のマクロ(プロシージャ)を実行
Run "'" & excelFileFullPath & "'!'" & macroName & "'"

　　wk.Close

Comments

[mattsuncaca]

ご回答有り難うございます！
こちらで解決いたしました！

呼び出し側で閉じてしまうと、呼び出される側のクエリ更新を待たずに閉じてしまうという問題があったので、最初の段階でこの方法を排除してました。
しかし、今やってみると、問題なく更新が終わってから閉じるようになったので、少し不思議ですが、触っているうちに、問題を解決していたのかなと思います！

ありがとうございました！

Answer 2

私もVBAは詳しくはありませんが、おそらく読み通りかと思います。

ThisWorkbook.Close

としていることで、「一括result更新」マクロを実行しているブックも閉じているのだと思います。
対応としてはActiveWorkbook.Closeとするのが良いと思います。
（「データ更新test」マクロでも前段でActiveWorkbookを使用していますよね。むしろ、なぜ最後にThisWorkbookにしているのかというところに違和感がありました）
こちらのページでThisWorkbookとActiveWorkbookの違いがまとめられています。この違いを理解しておいた方が良いと思います。

また、VBAでしたらデバッグ環境が整っております。デバッガで挙動を追った方がなぜそうなるのかが理解しやすいと思います。

Comments

[mattsuncaca]

ご回答ありがとうございます！
ActiveWorkbookに変更しても残念ながら解決しませんでしたが、
ThisWorkbookとActiveWorkbookの違いを改めて意識する機会となりました！

デバッガで挙動を追ったところ、1つ目のCallが終わったあと、2つ目にいかず、1つ目の先頭に戻ってしまうような挙動でした。
とても興味深いですが、他回答にあった、「ブックを呼び出し側で閉じる」としたことで、次の処理に進んでくれました。