Skip to main content
Agregué ejemplos con parámetros.
Origen Enlace
comando.CommandText =
    "UPDATE [Sheet1$] SET [Date] = DateSerial(2016, 9, 19) WHERE Name = 'Daniel'"
comando.CommandText =
    "UPDATE [Sheet1$] SET [Date] = DateSerial(2016, 9, 19) WHERE Name = 'Daniel'"
    
' Con parámetros:
comando.CommandText = "UPDATE [Sheet1$] SET [Date] = ? WHERE Name = ?"
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=" & value & ";" &
                            "Extended Properties='Excel 12.0 Xml;HDR=NO;'"
' ---------------------------------------------------------------^
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=" & value & ";" &
                            "Extended Properties='Excel 12.0 Xml;HDR=NO;'"
' ---------------------------------------------------------------^
comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = 'A1', F2 = 'B1', F3 = 'C1', F4 = 'D1'"
comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = 'A1', F2 = 'B1', F3 = 'C1', F4 = 'D1'"

' Con parámetros:
comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = ?, F2 = ?, F3 = ?, F4 = ?"
comando.CommandText = "UPDATE [Sheet1$C2:C2] SET [F1] = DateSerial(2016, 9, 19)"

' Con parámetros:
comando.CommandText = "UPDATE [Sheet1$C2:C2] SET [F1] = ?"
comando.CommandText =
    "UPDATE [Sheet1$] SET [Date] = DateSerial(2016, 9, 19) WHERE Name = 'Daniel'"
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=" & value & ";" &
                            "Extended Properties='Excel 12.0 Xml;HDR=NO;'"
' ---------------------------------------------------------------^
comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = 'A1', F2 = 'B1', F3 = 'C1', F4 = 'D1'"
comando.CommandText = "UPDATE [Sheet1$C2:C2] SET [F1] = DateSerial(2016, 9, 19)"
comando.CommandText =
    "UPDATE [Sheet1$] SET [Date] = DateSerial(2016, 9, 19) WHERE Name = 'Daniel'"
    
' Con parámetros:
comando.CommandText = "UPDATE [Sheet1$] SET [Date] = ? WHERE Name = ?"
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=" & value & ";" &
                            "Extended Properties='Excel 12.0 Xml;HDR=NO;'"
' ---------------------------------------------------------------^
comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = 'A1', F2 = 'B1', F3 = 'C1', F4 = 'D1'"

' Con parámetros:
comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = ?, F2 = ?, F3 = ?, F4 = ?"
comando.CommandText = "UPDATE [Sheet1$C2:C2] SET [F1] = DateSerial(2016, 9, 19)"

' Con parámetros:
comando.CommandText = "UPDATE [Sheet1$C2:C2] SET [F1] = ?"
Origen Enlace

Estuve depurando el código sobre 32 bits, y encontré la causa del problema.

Son muy útiles los enlaces de la pregunta, especialmente How To Use ADO.NET to Retrieve and Modify Records in an Excel Workbook With Visual Basic .NET


Para hacer UPDATE en un hoja Excel, tenemos dos opciones: con o sin encabezado.

  1. Con encabezado o también llamada actualización de registros

El encabezado es el nombre de las columnas, y cuando se halla presente se debe indicar en la cadena de conexión, mediante la propiedad HDR=YES:

conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=" & value & ";" &
                            "Extended Properties='Excel 8.0;HDR=YES;IMEX=0;TypeGuessRows=0;'"
'-----------------------------------------------------------^

De esta forma podemos hacer la sentencia UPDATE como la hacemos para cualquier consulta hacia una base de datos:

UPDATE Tabla SET campo1 = valor1, campo2 = valor2, ...

Para el código de la pregunta:

comando.CommandText =
    "UPDATE [Sheet1$] SET [Date] = DateSerial(2016, 9, 19) WHERE Name = 'Daniel'"

La columna C tiene el nombre Date, que es una palabra reservada, y por lo tanto se hace imprescindible el uso de los corchetes, [ y ] en cambio Name vemos que no los necesita.

Curiosamente funciona Excel 8.0 para el motor ACE 12.0


  1. Sin encabezado o también llamada actualización de celdas individuales

Esta vez, en la cadena de conexión debemos establecer la propiedad HDR=NO:

conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                            "Data Source=" & value & ";" &
                            "Extended Properties='Excel 12.0 Xml;HDR=NO;'"
' ---------------------------------------------------------------^

IMEX y TypeGuessRows no se pueden usar aquí porque dependen de que las filas tengan encabezado de columnas, es decir que sólo se usan cuando HDR=YES

Aquí la sentencia UPDATE, exige unas normas a seguir:

  • Especificar el rango de celdas que serán actualizadas.

  • En lugar de los nombres de columnas, se usa la letra F seguida de un ordinal, que indica la columna.

Por ejemplo, para cambiar el encabezado:

     A         B        C      D    ...
  +------+-----------+------+-----+---
1 | Name | Last_name | Date | Age |     <=== Encabezado
  +------+-----------+------+-----+---
2 |      |           |      |     |
...

por el nombre de las celdas:

     A         B        C      D    ...
  +------+-----------+------+-----+---
1 |  A1  |     B1    |  C1  |  D1 |     <=== Encabezado
  +------+-----------+------+-----+---
2 |      |           |      |     |
...

Se debe hacer:

comando.CommandText = "UPDATE [Sheet1$A1:D1] SET F1 = 'A1', F2 = 'B1', F3 = 'C1', F4 = 'D1'"

Para el código de la pregunta:

comando.CommandText = "UPDATE [Sheet1$C2:C2] SET [F1] = DateSerial(2016, 9, 19)"

Usé DateSerial, para evitar problemas con el formato de fechas.

Siempre se debe indicar el rango de celdas, aunque una sola se actualice.