Salve chiedo aiuto per un problema.
Dovrei leggerere da un foglio excel scaricato da internet dei dati e immetterli in una tabella access 2000.Preciso di non avere excel istallato.
Per farlo da codice utilizzo una connessione ADO, ma non riesco ad estrarre nessun dato.
Invece procedendo come segue :
1) Creo un nuovo foglio excel
2) creo una connessione al foglio
3) estraggo i dati del foglio, popolato con dati casuali, riesco ad estrarre i dati
il codice č il seguente
'Apro la connessione ADO verso un file Excel esistente ( un modello )
Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\TEST.xls;" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""
'Creo una nuova tabella ( nuovo Foglio )
oConn.Execute "CREATE TABLE PROVA (Campo1 char(255), Campo2 int, Campo3 int)"
'Creo / Apro il Recordset che mappa il Foglio
Dim oRS As ADODB.Recordset
Set oRS = New ADODB.Recordset
oRS.Open "SELECT * FROM PROVA", oConn, adOpenKeyset, adLockOptimistic
'Popolo il Recordset con alcune righe ( valori inventati al momento )...
Dim i As Integer
For i = 1 To 10
'Nuova riga
oRS.AddNew
'Assegnamento Campi
oRS.Fields(0) = "ValoreCampo1_" & i
oRS.Fields(1) = i
oRS.Fields(2) = i * 10
'Update su Recordset --> Implica Update Xls
oRS.Update
Next i
'Chiusura Rs e Connessione
oRS.Close
oConn.Close
Riassumendo riesco ad estrarre solo i dati che creo scrivendo nnel fogli oexcel da codice e non i dati di un foglio esterno.
Come mai?
Cmq generalizzando, vome posso leggere dati da un fogli oexcel senza avere excel installato attraverso vb6?
Grazie a tutti.
Ultima modifica effettuata da cuore napoletano il 01/09/2011 alle 14:55 |