[VB6] Collegamento a foglio Excel

[webman89]

salve a tutti

vorrei fare un collegamento ad un db excel, mi indicare il codice per favore??

grazie

[oregon]

Detta cosi', no, non si puo'.

Cerca di essere piu' preciso e indica meglio cosa vorresti fare e cosa non sai fare ...

[webman89]

devo semplicemente prendere un valore da una cella di un documento excel e inserirlo in un altro documento excel...


io utilizzo per il collegamento ed inserimento dati ad Access questo codice:


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Dim connessione As ADODB.Connection
Dim SetDiRecord As ADODB.Recordset
Dim nomefile As String
Dim com As ADODB.Command


Dim stringa As String
Dim query As String

Private Sub Command1_Click()

query = "insert into tabella (NOME,COGNOME) values (' " & Text1.Text & " ', ' " & Text2.Text & " ')"



stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
nomefile = stringa & "F:...db1.mdb"


Set connessione = New ADODB.Connection
connessione.Provider = "Microsoft.Jet.OLEDB.4.0"
'connessione.Properties("Jet OLEDBatabase Password") = PasswordDB
connessione.Open nomefile
Set com = New ADODB.Command
Set com.ActiveConnection = connessione
com.CommandText = query
com.CommandType = adCmdText
com.Execute

MsgBox "Inserimento effettuato", vbOKOnly, "CONFERMA"


End Sub

......ora vorrei fare la stessa cosa per un db excel sia nel caso di scrittura che lettura...

grazie ciao

[webman89]

quakuno sa rispondermi?? grazie

[alka]

Tramite il driver MS Jet si può leggere un file Excel, ma non scrivere (che io sappia).

Per scrivere, devi usare gli oggetti di automazione OLE di Excel (cioè utilizzare direttamente Excel) oppure qualche componente di terze parti che supporti il formato specifico.

Ciao!