En un post anterior del 14-jun-11, expuse un ejemplo para pasar datos de Excel a Access, pero sólo era para archivos de Access 2003 y anteriores, con extensión .mdb; en esta ocasión les comparto qué modificación hacer para que el mismo ejemplo funcione con bases de datos de Access versión 2007 y 2010, cuya extensión es .accdb.
El cambio será en la línea que dice:
cn.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & ThisWorkbook.Path & "Base citas.mdb;"
Y se reemplazará con esta línea:
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "Base citas.accdb;"
El cambio radica en que la cadena de conexión es diferente para las versiones nuevas de Access.
Referencia:
