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

Puedo leer los datos de un Excel en una carpeta compartida usando un recordsetRecordset con ADODB; puedo escribir esos datos en un archivo local, pero de la forma rangeRange().valueValue. No he podido hacerlo usando un updateUpdate 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?

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?

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?

Puedo leer los datos de un Excel en una carpeta compartida usando un recordsetrecordset con ADODB;ADODB; puedo escribir esos datos en un archivo local, pero de la forma range().valuerange().value. No he podido hacerlo usando un updateupdate con ADODBADODB.

Esta es mi conecciónconexió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 INVERSIONESINVERSIONES se llene de 10000?

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 conecció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?

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?

Origen Enlace
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 conecció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?