[VB6] Leggere dati nelle cartelle di un file Excel

[tibur]

Devo fare un applicazione in VB6 che elabori dei files excel.
Ora come leggere un file xls da vb6 lo so fare, il problema è che questi files hanno un numero di sheet\cartelle diverso per ogni file e con nomi diversi ed io devo elaborare i dati di ogni cartella.
Quindi la domanda è, aperto un file xls, mi serve sapere quante cartelle sono presenti e leggerle una per una. COME FARE ?????
grazie

[raffaeu]

Se chiedi questa cosa vuol dire che non lo sai fare ... perchè l' Interop di excel offre una classe WOrkBook che contiene una iList WorkSheet ...
Cosa usi OleDb?

[tibur]

Originariamente inviato da raffaeu
Se chiedi questa cosa vuol dire che non lo sai fare ... perchè l' Interop di excel offre una classe WOrkBook che contiene una iList WorkSheet ...
Cosa usi OleDb?

è ovvio che se chiedo è perchè non so. Io comunque sino ora ho usato ADO per leggere un xls

[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

[tibur]

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:

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

[raffaeu]

Direi proprio alla libreria ADOX che non c' entra nulla con ADO ...