Exportar excel to access
Me pasan cada mes los datos en excel y estoy intentando automatizar el proceso, en vez de copiar y pegar o utilizar el asistente de access para importar. Me gustaría que con un botón o con una macro se me actualizase al instante los registros del excel a access.
He sacado esto en VBA:
Sub exportaraccess()
Dim con As ADODB.Connection, rs As ADODB.Recordset, r As Long
Set con = New ADODB.Connection
con.Open "Provide=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Desktop\prueba.accdb;"
Set rs = New ADODB.Recordset
rs.Open "Delivery", con, adOpenKeyset, adLockOptimistic, adCmdTable
r = 2
Do While Len(Range("A" & r).Formula) > 0
With rs
.AddNew
.Fields("Delivery") = Range("A" & r).Value
.Fields("Load month") = Range("B" & r).Value
.Update
End With
r = r + 1
Loop
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
no me funciona... ¿cómo lo harías tu?
Como estas Miguel, me gustaría trabajar igual con esta macro pero no puedo ver tu video - Jorge Bladimir Chavez Diaz
El video no esta disponible, es un buena herramienta para quienes estamos iniciando. Me gustaría que se publicara nuevamente. Gracias - Rodrigo Romero