Как передать число в качестве строкового аргумента в объект книги (excel)

Это то, что сделает эту работу:

Option Explicit

Public Sub TestMe()

    Dim strName     As String
    Dim wb          As Workbook
    Dim wsAny       As Worksheet
    Dim ws          As Worksheet

    strName = "Text"

    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & strName & ".xlsm")

    For Each wsAny In wb.Worksheets
        If wsAny.Name = strName Then
            Set ws = wsAny
        End If
    Next wsAny

    Debug.Print ws.Cells(1, 1)

End Sub

Вам нужен файл Excel с именем Text.xlsm, а также рабочий лист с именем Text. Затем он покажет вам значение ячейки A1 этого листа этой книги.

Есть и другие способы сделать это, но этот работает. Файл Text должен находиться в той же папке, что и файл, в котором присутствует этот код. Файл Excel Text также должен быть закрыт.

Вы можете отредактировать код дальше, чтобы он работал для других папок и с уже открытым файлом.