Leaderboard

Hola @xveganx, para tener un mayor entendimiento sobre las consultas siempre se solicita un archivo de ejemplo, en tu caso la tabla de access y el excel, con datos ficticios es suficiente ya que lo se requiere es ver la estructura de tus archivos. Te dejo un pequeño código que hace lo que quieres, siempre y cuando lo sepas adaptar a tu archivo. Sub Exp_ACCESS() Set cn = CreateObject("ADODB.Connection") dbPath = "C:\Users\Usuario\Documents\Database1.accdb" '>>> RUTA de la BD Tabla = "Tabla1" ' >>> Nombre de la tabla de Access dbWb = Application.ActiveWorkbook.FullName dbWs = Application.ActiveSheet.Name scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath dsh = "[" & Application.ActiveSheet.Name & "$]" cn.Open scn ssql = "Delete * From " & Tabla cn.Execute ssql ssql = "INSERT INTO " & Tabla & " ([CONTRATO], [CONTRATO SAP], [FECHA], [PROVEEDOR], [SUCURSAL], [DESCRIPCION], [MONEDA]) " ssql = ssql & "SELECT [CONTRATO], [CONTRATO SAP], [FECHA], [PROVEEDOR], [SUCURSAL], [DESCRIPCION], [MONEDA]" & _ " FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh cn.Execute ssql MsgBox "Listo !!", vbInformation End Sub Saludos.

Debes de estar escribiendo mal la ruta de la BD, no afecta que el archivo este en en la red siempre y cuando tengas permisos para acceder a ella. Lo que suelo hacer para no equivocarme al escribir la ruta es usar esta opción del explorador de archivos Saludos.

Adjunto ejemplo. Saludos Horas.xlsx