Excel VBA で 各Query Nameがあるシート名を探す

Question

前提・実現したいこと

各Query Name が存在するシート名を入手したいが、いつも同じシート名になります。

下記コードでいえば、変数wk3は違うシート名になるはずなのですが、いつも同じシート名になります。

どうすれば、直るのかご教示お願い致します。

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

エラーメッセージは特にありません。

該当のソースコード

Sub Test()

Dim WrkCon As WorkbookConnection
Dim main_book as Workbook
        
Dim wk1 As String
Dim wk2 As String
Dim wk3 As String
Dim wk4 As String
Dim wk5 As String

p = 2   '複数ファイル処理未対応

For Each WrkCon In ActiveWorkbook.Connections

wk1 = Workbooks(target_book).Name 'Workbook Name
wk2 = Workbooks(target_book).Name 'Worksheet Name
wk3 = WrkCon.Name 'Query Name
wk4 = WrkCon.ODBCConnection.CommandText 'Command Text Name
wk5 = WrkCon.ODBCConnection.Connection 'Command String Name

Workbooks(main_book).Worksheets("logs").Activate

With ActiveSheet
    .Cells(p, 1) = wk1 'Paste results to Column A
    .Cells(p, 2) = wk2 'Paste results to Column B
    .Cells(p, 3) = wk3 'Paste results to Column C
    .Cells(p, 4) = wk4 'Paste results to Column D
    .Cells(p, 5) = wk5 'Paste results to Column E

p = p + 1

Next
        
End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

ActiveWorkbookとmain_bookが混在しています。（target_bookも？）
最初のForEachではActiveWorkbook（target_book？）
書き込むのにmain_bookを指定、
そのままActiveWorkbook.Connectionsなのでmain_bookが指定されています。

コードをすべて提示されていないと思うので断定はできませんが、
それぞれの時点でどのファイルがアクティブかを意識されることをお勧めします。