Archivi tag: vb6 read excel

[VB6] – Leggere un file Excel

Problema: Leggere un file excel senza l’utilizzo di nessuna libreria esterna

Soluzione: La soluzione relativamente semplice e prevede l’utlizzo di un file Excel come una sorta di database sul quale fare una query, per fare questo andremo ad utilizzare il recordset come struttura dati ospite ecco le pochissime righe di codice che servono, ricordatevi di includere (Progetto -> Riferimenti ) tutti i riferimenti necessari per l’utilizzo dei recordset


'Dichiarazione delle variabili
Dim rs As ADODB.Recordset
Dim sconn As String
'Impostazione del recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
'Preparo la stringa di connessione
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
'Apro la connessione ed effettuo la query
rs.Open "SELECT * FROM [Foglio1$] WHERE Colonna = '" & condizione & "'", sconn
rs.Close