Access - Importar datos

Private Sub cmdImportar_Click()

    'Definir la ruta del archivo de Excel que contiene los datos a importar

    Dim strRutaArchivo As String

    strRutaArchivo = "C:\Ruta\ArchivoExcel.xlsx"

    'Definir la conexión con el archivo de Excel

    Dim strConexionExcel As String

    strConexionExcel = "Excel 12.0 Xml;HDR=YES;IMEX=1;Database=" & strRutaArchivo

    'Definir la consulta SQL para obtener los datos de Excel

    Dim strSQL As String

    strSQL = "SELECT * FROM [Hoja1$]"

    'Definir la conexión con la base de datos de Access

    Dim cn As ADODB.Connection

    Set cn = CurrentProject.Connection

    'Definir la consulta SQL para insertar los datos en la tabla de Access

    Dim strSQLInsert As String

    strSQLInsert = "INSERT INTO tabla (campo1, campo2, campo3) VALUES (?, ?, ?)"

    'Definir el objeto Recordset para obtener los datos de Excel

    Dim rsExcel As ADODB.Recordset

    Set rsExcel = New ADODB.Recordset

    rsExcel.Open strSQL, strConexionExcel

    'Definir el objeto Recordset para insertar los datos en la tabla de Access

    Dim rsAccess As ADODB.Recordset

    Set rsAccess = New ADODB.Recordset

    rsAccess.Open strSQLInsert, cn, adOpenDynamic, adLockOptimistic

    'Recorrer los registros de Excel e insertarlos en la tabla de Access

    Do Until rsExcel.EOF

        rsAccess.AddNew

        rsAccess("campo1").Value = rsExcel("campo1").Value

        rsAccess("campo2").Value = rsExcel("campo2").Value

        rsAccess("campo3").Value = rsExcel("campo3").Value

        rsAccess.Update

        rsExcel.MoveNext

    Loop

    'Cerrar los Recordsets y la conexión con la base de datos de Access

    rsExcel.Close

    Set rsExcel = Nothing

    rsAccess.Close

    Set rsAccess = Nothing

    cn.Close

    Set cn = Nothing

End Sub