Получить список листов в эксель файле без его полной загрузки + 1 вопрос

Dim objExcelOld As New Excel.Application
 
ComboOld.Text = "Файл загружается..."
objExcelOld.Workbooks.Open "C:\1.xlsx|, ReadOnly:=True
objExcelOld.Visible = False
 
ComboOld.Clear
For i = 1 To objExcelOld.Sheets.Count
ComboOld.AddItem objExcelOld.Sheets(i).Name
Next i
ComboOld.ListIndex = 0
objExcelOld.Workbooks.Close

Dim conn As New ADODB.Connection
Dim rrr As New ADODB.Recordset
 
ComboNew.Clear
            
Do While Not rrr.EOF
    Debug.Print rrr.Fields("TABLE_NAME").Value
    ComboNew.AddItem rrr.Fields("TABLE_NAME").Value
    rrr.MoveNext
Loop
 
ComboNew.ListIndex = 0

Private Sub ButtonNew11111111111111111111_Click()
Dim objExcelNew As New Excel.Application
 
Call OpenFileDialog(TextNew) ' Это common file dialog для нахождения адреса файла, например "c:\1.xlsx"
 
'Загружаем новый файл
If Not TXTTrig.Text = "False" Then 'Проверка на то, была ли нажата "отмена"
ComboNew.Text = "Файл загружается..."
objExcelNew.Workbooks.Open TextNew.Text, ReadOnly:=True
objExcelNew.Visible = False
 
'---Заполняем комбо боксы списком листов в книге эксель Новый ------
ComboNew.Clear
For i = 1 To objExcelNew.Sheets.Count
ComboNew.AddItem objExcelNew.Sheets(i).Name
Next i
ComboNew.ListIndex = 0
'-------------------------------------------------------------------
objExcelNew.Workbooks.Close
TXTTrigNew.Text = "True"
Else 'Если в меню не выбран файл, очищаем все...
TXTTrigNew.Text = "False"
TextNew.Text = "Выберите новый файл..."
ComboNew.Clear
ComboNew.Text = "Загрузите файл..."
 
End If
End Sub