Copiar datos de Excel Acces

[Berni10]

Buenas. Noches

Adjunto.Archivo que estoy intentando copiar datos de Excel a Acces

espero me digan donde estoy cometiendo el error

de antemano muchas gracias

Exportar .zip

[Antoni]

Compara con tu macro para ver los errores:

Public Cn As Object

Public rs As Object



Sub ExportarAcces()

Dim Cn As Object, rs As Object, n As Long



Sheets("TablaCliente").Activate

If Range("A15") = Empty Then

   MsgBox "No Hay Datos para Guardar", vbCritical, "Campos Vacios"

   Exit Sub

End If



Set Cn = New ADODB.Connection

Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _

        & ThisWorkbook.Path & "\Cliente.accdb;"

Set rs = New ADODB.Recordset

rs.Open "Tabla_Cliente", Cn, adOpenKeyset, adlockOptimistic, adCmdtable



[COLOR=#008000]'------------------------------------------------[/COLOR]

[COLOR=#008000]'Añade un registro a la base de datos rango B4:B8[/COLOR]

[COLOR=#008000]'------------------------------------------------[/COLOR]

With rs

.AddNew

.Fields("Identificacion") = Range("B4").Value

.Fields("Nombre Apellidos") = Range("B5").Value

.Fields("Ciudad") = Range("B6").Value

.Fields("Direccion") = Range("B7").Value

.Fields("Telefono") = Range("B8").Value

.Update

End With



Set rs = Nothing

Cn.Close

Set Cn = Nothing

MsgBox "Los Datos Fueron Guardados Exitosamente", vbInformation, _

       "Cliente Creado Corretamente"

End Sub



[/CODE]