Domanda Compilare DB Access da Bottone Excel

[daddy16]

Ciao a tutti,

Ho scitto questa macro la quale andando a trovare un valore in una determinata colonna scriva nella riga corrispondente un valore:
In particolare prendendo il valore in cella (2, 30) lo cerca nella colonna 19, trovato quel valore nella cella(i, 19) vada a prendersi il valore di cella (i, 13) e lo scriva in cella (i, 15)

Sub Concession_button()

Set qh = Worksheets("Shopper")
Set pt = Worksheets("DataITA")


lRow = pt.Cells(Rows.Count, 4).End(xlUp).Row

For i = 2 To lRow
If pt.Cells(i, 19) = qh.Cells(2, 30) Then

pt.Cells(i, 15) = pt.Cells(i, 13).Text


Exit For
End If
Next i


End Sub

vorrei che come destinazione finale non ci sia Worksheets("DataITA") ma un database Access presente in locale e con al suo interno una tabella del tutto simile a "DataITA"

 

[ges]

Ciao,
un metodo l'ho decritto qui -> https://www.forumexcel.it/forum/threads/trasferire-dati-da-excel-a-access-con-ado.40026/

 

[daddy16]

Ciao Ges,

Grazie mille, per prima cosa!!!!!!!


Essendo assolutamente nuovo del mondo VBA, e ancora più nuovo del mondo Access non mi è chiarisimmo questo passaggio:

Do While Len(Range("A" & r).Formula) > 0
        With rs
            .AddNew
            .Fields("Nome1") = Range("A" & r).Value '<--- Nome campi
            .Fields("Nome2") = Range("B" & r).Value
            .Fields("Nome3") = Range("C" & r).Value

inoltre mi pare di capire che apre e chiude il file (è possibile fare questa operazione senza aprire e chiudere il file?)

 

[ges]

Copia i campi della colonna A di Excel che sono valorizzati nei campi della Tabella Access

mi pare di capire che apre e chiude il file (è possibile fare questa operazione senza aprire e chiudere il file?)

No, in informatica non è possibile agire su un file senza che venga aperto!