Salve ha tutto il forum, avrei bisogno di un aiuto:

Ho un file xls contenente dei dati, questi dati li dovrei passare dal file XLS  a un file MDB tramite Visual Basic.

Mettiamo caso che ad esempio ho:

(file EXCEL)

COLONNA 1 RIGO 1= FABIO

COLONNA 2 RIGO1=MESSINA

COLONNA 3 RIGO 1=27

premendo un command button, in visual basic, dovrei fare in modo tale che i dati si vadano ad inserire in un file MDB, magari in una tabella già creata, e fare in modo che posso creare i campi del db via codice e importare i dati nel seguente modo:

NOME=FABIO

COGNOME=MESSINA

ETA'=27

e via dicendo

Spero che qualcuno può aiutarmi

Distinti Saluti           Fabio Messina

Ciao,
prova ad dare un'occhiata al seguente codice  V B S c r i p t:

Dim xls,cn,rs

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\test.mdb"

Set rs = CreateObject("ADODB.Recordset")
rs.Open "tblPersone",cn,1,2

Set xls = CreateObject("Excel.Application")
With xls.Workbooks.Open( "c:\persone.xls" )
 .Activate
 With .Worksheets("foglio1")
  For i=1 to .Usedrange.Rows.Count
   rs.Addnew
   rs.Fields("Nome").Value = .Cells(i,1)
   rs.Fields("Cognome").Value = .Cells(i,2)
   rs.Fields("Eta").Value = .Cells(i,3)
   rs.Update
  Next
 End With
 .Close false
End With
xls.Quit
Set xls = Nothing

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

MsgBox "Fatto!"

Questa semplice routine accoda il contenuto del file persone.xls (foglio1) nel database test.mdb (tblPersone): con pochi accorgimenti dovrestri poterlo adattare alle tue esigenze.

Ciao ciao

Grazie della risposta, funziona alla grande

Fabio Messina

Ho usato questa porzione di codice e funziona egreggiamente, ma in realtà mi servirebbe che i campi del database venissero aggiornati con i valori del foglio di calcolo e non semplicemente aggiunti.

Quindi nel mio file di excel   foglio1, due colonne con, codice prodotto e quantità.
Nel database mi servirebbe cha a quel prodotto venisse aggiornata la quantità,  visto che il prodotto è presente ma la quantità ha un valore "diverso" da aggiornare.

Questo codice fà un semplice append dei dati da excel nel database a me servirebbe che se presente un dato prodotto lui ne aggiorni la quantità.

 ciao,  ho visto che il codice in vb prende delle celle in excel e le passa a un file mdb, però le appende, per caso sai se sei risucito ad aggiornare il contenuto delle stesse celle.

grazie

ti lascio la mia mail in caso di risposta: fmgagliano@libero.it 

Purtroppo no, non ho ancora risolto il mio problema ed ora capisco anche il tuo.

non ho trovato nessuno disposto a mandarmi il codice completo come ho fatto io.

Qualcuno mi ha dato dei consigli, ma sono veramente alle prime armi in visual e non riesco a sfruttarli a pieno.

Se anche tu risolvi ti mando la mia mail   rigoli@meditrade.it