Хочу перестраховаться и потренироваться...

Короче, список таблиц (листов) с файла Excel хачу.
Но не могу.

Кто умеет?

' Вот эта хрень не работает!
Set x = .GetSchema("TABLES")

  
  Set ExcelConn = New ADODB.Connection
  
  With ExcelConn
  
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                        "DBQ=" + file + ";" & _
                        "ReadOnly=TRUE;"

    Debug.Print .ConnectionString
    .Open

    ' Вот эта хрень не работает!
    Set x = .GetSchema("TABLES")

    Set rs = .Execute("SELECT * FROM [Лист1$]")
    For Each x In rs.Fields
       Debug.Print x.Name
    Next
     
    .Close

http://www.sql.ru/forum/1257920/odbc-i-chtenie-shemy-dannyh-iz-excel