Trasferimento dati da Excel a Access

[dmagnoni]

Salve a tutti, ho questo problema.
Dopo aver compilato un foglio Excel, devo portare alcuni dati nella colonne di un database Access. Quindi mi servirebbe un
esempio di una macro, lanciabile da Excel, che apra il file Access, legga i dati dal
foglio Excel e li porti nel file Access.
Grazie a tutti per l'aiuto.
Ciao, Daniele

[comas17]

Potresti provare a fare il contrario...
Aprire un database Access - file - carica dati esterni - importa - (scegli il tipo di file "Microsoft Excel (*.xls)" e segui il wizard...
Devi proprio farlo in automatico con una macro ?

[dmagnoni]

Non posso fare il contrario perchè facendo Carica Dati
Esterni importo un intero foglio Excel
mentre a me serve portare in Access solo alcuni dati
del foglio Excel. Esempio: in Excel ho un foglio
di calcolo in cui viene compilata una fattura con tutti i
suoi calcoli; in un file Access tengo lo
storico delle fatture fatte per cui devo portare da Excel
ad Access solo i dati generali della fattura, ad es.
Nome Cliente, Descrizione Lavoro, Data Fattura e Totale Fattura.
Ciao e grazie mille,
Daniele

[seclimar]

vai nel forum ASP

cerca un esempio di una query di UPDATE o di INSERIMENTO RECORD di una tabella....
leggi come si fa la connessione al DB .. ecc...
puoi fare la stessa identica cosa da una macro!

uguale uguale!

1)
fai una funzione richiamata da un tasto

2) nel codice apri la connessione
conn=createobject ("ADODB.CONNECTION")
e la configuri

3)
prepari la query
mysql="INSERT ecc... "

4)
esegui la query
conn.execute MYSQL

[dmagnoni]

Grazie mille,
ho provato quanto dici ma mi da un errore in esecuzione.
Il codice della macro è il seguente:

Sub aa()
'
Dim Conn, SQL
Dim Vax As String
Vax = Cells(9, 1).Value
Conn = CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("prova.mdb")
SQL = "INSERT INTO Indirizzi(Nome) VALUES Vax"
Conn.Execute MYSQL
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

mi da un errore sull'istruzione Conn.Open e l'errore è il
seguente:
Errore di Run-Time 424:
Necessario Oggetto.

Mi sai dire a cosa è dovuto ?
Grazie mille,
Daniele

[seclimar]

& server.mappath("prova.mdb")
questo e' per un server web

metti il tuo percorso con il tuo db

[dmagnoni]

Non funziona, l'errore è lo stesso, sempre sull'istruzione Conn.Open
Il codice che ho scritto è il seguente:

Sub aa()
'
Dim Conn, SQL
Dim Vax As String
Vax = Cells(9, 1).Value
Conn = CreateObject("ADODB.Connection")
strConn = "driver={Microsoft Access Driver (*.mdb)}; dbq=" & "c:\prova.mdb"
Conn.Open (strConn)
SQL = "INSERT INTO Indirizzi(Nome) VALUES Vax"
Conn.Execute MYSQL
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

Grazie mille se vorrai ancora aiutarmi.
Ciao, Daniele

P.S. Non è che devop attivare anche qualche riferimento da
Strumenti ... Riferimenti ?

[seclimar]

Conn = CreateObject("ADODB.Connection")
no

set Conn = CreateObject("ADODB.Connection")
SI

[dmagnoni]

Ok, adesso funziona.
Grazie veramente di cuore.
Ciao, Daniele

[seclimar]

nulla