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