Newsgroup: it.comp.appl.access
Titolo: da excel ad access

da un foglio excel vorrei copiare delle celle in una tabella access.
mi sapete dare qualche dritta?
grazie.
Lenny

risolto.
nel caso fosse utile a qualcuno posto il codice che ho scritto
ciao
Lenny
Private Sub CommandButton3_Click()
Dim wrkJet As Workspace
Dim db As Database
Dim rst As Recordset
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set db = wrkJet.OpenDatabase("d:\documenti\access\conteggio moneta.mdb")
Set rst = db.OpenRecordset("moneta")
With rst
    .AddNew
    .Fields("data") = Date
    .Fields("001") = Cells(2, 7)
    .Fields("002") = Cells(3, 7)
    .Fields("005") = Cells(4, 7)
    .Fields("010") = Cells(5, 7)
    .Fields("020") = Cells(6, 7)
    .Fields("050") = Cells(7, 7)
    .Fields("100") = Cells(8, 7)
    .Fields("200") = Cells(9, 7)
    .Update
End With
db.Close
wrkJet.Close
End Sub

"Lenny" <luca...@QUESTOLOTOGLItiscali.it> ha scritto nel messaggio
news:b4sdpb$o1d$1...@lacerta.tiscalinet.it...

Sull'help dai uno sguardo al Metodo TransferSpreadsheet.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

"Lenny" <luca...@QUESTOLOTOGLItiscali.it> ha scritto nel messaggio
news:b4sevc$ok9$1...@lacerta.tiscalinet.it...

Ma funziona?
Scusa la mia ignoranza, ma il nome del file Excel dove glielo hai dato?



si funziona.
sul foglio excel dove ho i dati che mi servono ho creato un bottone e messo
il codice che avete visto.
in pratica apro solo il db poi la tabella e con il metodo addnew aggiungo
nei vari campi i valori che mi
servono. Certo non ci sono controlli, ma non mi interessano.
l'unica cosa č che ho dovuto aggiungere in "riferimenti" la voce DAO 3.6
per il codice ho preso spunto da esempi nella guida.
ciao

 ciao
A ma allora è codice VBA su Excel e non VBA su Access!!
Sarebbe il caso che lo precisi; in un NG che parla di Access si dà per
default che il codice VBA sia generato su Access e non su Excel.
O sbaglio?


 Roberto
hai ragione. sorry.
l'ho dato per scontato visto che parlavo di portare dati da excel ad access,
ma giustamente non avevo detto che volevo farlo da excel.
bye.
lenny


Senza troppo codice inutile :::: un semplice copia e incolla???

 ha scritto nel messaggio
news:b4tp6c$igf$1...@lacerta.tiscalinet.it...

Inutile?
Se devi farlo all'interno del contesto di altro codice cosa fai?
Fermi l'esecuzione del codice, fai il copia/incolla e poi fai riprendere il
codice?



beh hai ragione, però dovrei fare troppe cose per copiare i dati.
invece col mio metodo (che poi ho risolto in mezz'oretta)
basta premere un bottone e tutto viene fatto automaticamente.
ciao
LEnny

 ha scritto nel messaggio
news:b4tp6c$igf$1...@lacerta.tiscalinet.it...


troppo lungo il procedimento.
i dati nel foglio sono messi in verticale e la tabella access li vuole in
orizzontale.
poi dovrei comunque aprire access, aprire la tabella, incollare e
chiudere...
ci vuole troppo tempo (2 minuti ?)
con il codice che ho scritto in 20 minuti (test compresi) riesco ad inserire
nel db
i dati che mi servono in esattamente 1 secondo e con un click solamente.
ciao
Lenny