Активируйте указанную c рабочую книгу из списка экземпляров - я могу получить список открытых рабочих книг, но не могу активировать указанную c одну

Question

исходный код исходного кода: После запуска нескольких экземпляров Excel, как я могу получить объект приложения для всех из них?

Книга 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