Вывести список листов книги без ее открытия

' Получить список имен листов и именованных диапазонов закрытой книги
Sub ZVI_GetExternalTables()
  ' Reference to Microsoft ActiveX Data Objects 2.8 Library
  Dim FileName$, s$, i&, rs&, x, Arr
  ' Choose an external file
  With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Add "Excel", "*.xls;*.xlsx", 1
    .InitialFileName = ThisWorkbook.Path
    .AllowMultiSelect = False
    If .Show = False Then Exit Sub
    FileName = .SelectedItems(1)
  End With
  ' Collect all table names of the external file
  With New ADODB.Connection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & FileName & ";Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
    With .OpenSchema(adSchemaTables)
      rs = .RecordCount
      ReDim Arr(1 To rs, 1 To 2)
      For i = 1 To rs
        Arr(i, 1) = i: Arr(i, 2) = Replace(.Fields("TABLE_NAME").Value, "$", "")
        .MoveNext
      Next
      .Close
    End With
    .Close
  End With
  ' Show list of tables
  With Range("A1:B1")
    .CurrentRegion.Resize(, 2).ClearContents
    .Value = Array("Tables", FileName)
    .Resize(rs - 1).Offset(1).Value = Arr
  End With
End Sub

dim wb as Workbook
dim ws as worksheet
dim arr() as variant
dim i as integer
Set wb = GetObject("C:\Excel\123.xlsx")
 
if not wb is nothing then
    For Each ws In wb.Worksheets
         i = i + 1
         redim preserve arr(i)
         arr(i) = ws
    Next
end if
wb.close

FileName = GetFilePath("Выберите файл")
     If FileName = "" Then Exit Sub
     ActiveSheet.Range("A1") = FileName
    MsgBox "Выбран файл: " & FileName, vbInformation

Sub ZVI_GetExternalTables()
  ' Reference to Microsoft ActiveX Data Objects 2.8 Library
  Dim FileName$, s$, i&, rs&, x, Arr
  ' Choose an external file
  With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Add "Excel", "*.xls;*.xlsx", 1
    .InitialFileName = ThisWorkbook.Path
    .AllowMultiSelect = False
    If .Show = False Then Exit Sub
    FileName = .SelectedItems(1)
  End With
  ' Collect all table names of the external file
  With New ADODB.Connection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & FileName & ";Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
    With .OpenSchema(adSchemaTables)
      rs = .RecordCount
      ReDim Arr(1 To rs, 1 To 2)
      For i = 1 To rs
        Arr(i, 1) = i: Arr(i, 2) = Replace(.Fields("TABLE_NAME").Value, "$", "")
        .MoveNext
      Next
      .Close
    End With
    .Close
  End With
  ' Show list of tables
  With Range("A1:B1")
    .CurrentRegion.Resize(, 2).ClearContents
    .Value = Array("Tables", FileName)
    .Resize(rs - 1).Offset(1).Value = Arr
  End With
End Sub

Sub GetFilePath_GetNameList()
     Dim ws As Worksheet
     Dim wb As Workbook, sShName As String, n As Integer, i As Integer
     Dim Array_Var() As String
          FileName = GetFilePath("Выберите файл")
     If FileName = "" Then Exit Sub
     ActiveSheet.Range("A1") = FileName 'записываем путь выбранного файла в ячейку
      With Application
        .ScreenUpdating = 0 ' обращение к файлу будет происходить в фоновом режиме
        .EnableEvents = 0
        Set wb = .Workbooks.Open(FileName, False, True)
        For i = 1 To ActiveWorkbook.Worksheets.Count 'подсчет количества листов в указанном файле
        ActiveSheet.Cells(2 + i, 14).Value = ActiveWorkbook.Worksheets(i).Name 'запись названий листов по порядку в столбец начиная с 14 в данном случае
        Next i 'Поиск названий в цикле
       wb.Close 0
        .ScreenUpdating = 1
        .EnableEvents = 1
    End With
End Sub