Trasferire dati da Excel a Access (con ADO)

ges

Excel/VBA Expert
Amministratore
21 Giugno 2015
29.532
2.465
Como
2011MAC 365WIN
1.009
Di seguito riporto il codice (da adattare) per trasferire i dati da Excel a Access
Visual Basic:
Sub Da_Excel_a_Access()
    '-------------------------------------------------------
    ' attivare le librerie:
    ' 1) Microsoft Activex Data Objects 6.1 Library
    ' 2) Microsoft Jet and Replication Objects 2.6 Library
    '-------------------------------------------------------
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
    Set cn = New ADODB.Connection
    cn.Open "provider = microsoft.ace.oledb.12.0;" & _
        "Data Source=C:\Users\NomeUtente\Desktop\DataBase1.accdb;" '<-- NomeUtente
    Set rs = New ADODB.Recordset
    rs.Open "Tabella1", cn, adOpenKeyset, adLockOptimistic, adCmdTable '<-- Nome tabella
    r = 1
    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
            .Update
        End With
        r = r + 1
    Loop
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!