Grazie,

sto provando ad usare il tuo esempio, ,ma mi da errore di tipo non definito all'istruzione
Dim adoWbkAsDatabase As New ADOX.Catalog
penso manchi l'inserimento di qualche riferimento, ma quale??


Originariamente inviato da raffaeu
:rollo:

Se usi ADO devi fare in questo modo:

codice:
Public Sub GetWorkbooksSchema()
Ti connetti con ADO 
    Dim sWorkbook As String
    sWorkbook = "...\Foglio.xls"
    
    Dim adoConnection As New ADODB.Connection
    adoConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sWorkbook & _
                                    ";Extended Properties=""Excel 8.0;HDR=Yes;"""
    adoConnection.Open
    
Crei un catalogo con ADOX 
    Dim adoWbkAsDatabase As New ADOX.Catalog
    adoWbkAsDatabase.ActiveConnection = adoConnection

Ottieni le info che ti servono 
    
    Dim adoTables As ADOX.Tables
    Set adoTables = adoWbkAsDatabase.Tables
    

    MsgBox adoTables.Count

Loop tra i fogli 
    Dim adoTable As ADOX.Table
    For Each adoTable In adoTables
        MsgBox adoTable.Name
    Next


    adoConnection.Close

Pulizia 
    Set adoConnection = Nothing
    Set adoWbkAsDatabase = Nothing
    Set adoTables = Nothing
    Set adoTable = Nothing

End Sub