Estimados, buen día
por favor agradecería asistencia para este problema. Sucede que tengo una planilla excel 2007 utilizada como base de datos A en la cual tengo una macro por medio de la cual actualizo los registros leyendo los datos de otro archivo excel B.
Como la macro lee los registros de B y luego los compara con A para actualizar sólo los casos donde A <> B y/o agregar los datos de B que no existen en A, pero se volvió muy lenta. Por eso quiero que la macro me levante ciertos registros de la base
A por SQL y luego compararlos mediante SQL para manipular mejor los filtros generando un recorset final con el cual si correr la macro que actualiza la tabla A.
El problema que al quere establecer la conexion con la base A ( desde la macro ubicada en el mismo archivo A ) me tira un error de que Microsoft Jet no encuentra el Objeto. esta es la porrción de código que realizar esa conexión.
Set datConOri = New ADODB.Connection
Set recSetOri = New ADODB.Recordset
strDBOri = ThisWorkbook.FullName
datConOri.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & strDBOri
'consulta SQL
strSQLOri = "SELECT * FROM [MODEMS$A6:AN" & filOri_fin & "] tabla "
recSetOri.Open strSQLOri, datConOri, adOpenStatic
Si me pueden dar una mano se los agradezco
