Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
buenos días, quería saber si alguien me podría indicar como mover una base de datos en excel de 30 columnas y 6500 filas a acces??
esto debido a que donde laboro esta base de datos de excel se actualiza cada 15 días y requiero moverla a acces para uso estadístico.
esta macro debería cada vez sobre-escribir lo que exista en la tabla de acces llamada empleados.
cabe destacar que el excel y el acces ambos estan en la siguiente ruta:
Z:\Relación laboral\MILI\CONSTANCIAS\pruebas\
la clave del acces es " rrhh "
gracias de antemano por su colaboración.