从实例列表中激活特定的工作簿-我能够获取打开的工作簿的列表，但是我无法激活特定的工作簿

Question

原始代码的参考来源：Having multiple Excel instances launched, how can I get the Application Object for all of them?

我要打开的Excel工作簿是由数据库应用程序创建的，用于进行更改。 这是我正在使用的代码。问题是它创建一个只读副本。我需要能够（通过另一个工作簿中的宏）更新原始工作簿。感谢您能获得的任何帮助-谢谢。

Sub Test2XL()

        Dim Source_Table As Range, Source_Rows As Integer, Source_Columns As Integer, WbTCName As String
        Dim WbTC As Workbook

  Dim xl As Excel.Application
  Dim i As Integer

  For Each xl In GetExcelInstances()
    Debug.Print "Handle: " & xl.Application.hwnd
    Debug.Print "# workbooks: " & xl.Application.Workbooks.Count
    For i = 1 To xl.Application.Workbooks.Count
        Debug.Print "Workbook: " & xl.Application.Workbooks(i).Name
        Debug.Print "Workbook: " & xl.Application.Workbooks(i).FullName
        Debug.Print "Workbook path: " & xl.Application.Workbooks(i).Path
        If Left(xl.Application.Workbooks(i).Name, 3) = "tc_" Then  ' Find Workbook of Interest
            WbTCName = xl.Application.Workbooks(i).FullName
            On Error Resume Next
            Set WbTC = Workbooks(WbTCName)
            On Error GoTo 0
            If WbTC Is Nothing Then
                Set WbTC = Workbooks.Open(WbTCName)
            End If
        End If
    Next i
  Next
  Set xl = Nothing


End Sub