[VB6] Leggere dati nelle cartelle di un file Excel

[raffaeu]

Ora come leggere un file xls da vb6 lo so fare

:rollo:

Se usi ADO devi fare in questo modo:

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