Skip to main content
3 de 3
ortografía, mejoras en el formato
Jedicillo
  • 13
  • 1
  • 1
  • 7

Update en Excel usando ADODB desde VBA

Puedo leer los datos de un Excel en una carpeta compartida usando un Recordset con ADODB; puedo escribir esos datos en un archivo local, pero de la forma Range().Value. No he podido hacerlo usando un Update con ADODB.

Esta es mi conexión:

Dim cnCaja As ADODB.Connection
Set cnCaja = New ADODB.Connection
cnCaja.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source='" & esteLibro & "';" & _
        "Extended Properties='Excel 12.0;HDR=Yes;ReadOnly=False';"

La idea es que sea algo parametrizada y con filtros, pero para simplificar el problema:

consUpdate = "Update [Base$A3:T100000] set INVERSIONES = 10000"

Y finalmente la parte que debiera hacer algo:

Dim rsCaja As ADODB.Recordset
Set rsCaja = New ADODB.Recordset

rsCaja.Open consUpdate, cnCaja, adOpenKeyset, adLockOptimistic

No da error ni dice nada.

¿Qué me falta para que el campo INVERSIONES se llene de 10000?

Jedicillo
  • 13
  • 1
  • 1
  • 7