[adrall]

Necesitaba modificar una celdas especificas de una hoja EXCEL y después de una semana de infructuosas búsquedas y numerosas pruebas y errores, he encontrado la solución en unos sencillos pasos. Ya se que es un tema recurrente pero aquí os dejo esta solución por si a alguien le es útil:

En primer lugar la maquina donde correrá la aplicación debe tener instalado "Microsoft Access Database Engine 2010" o superior para poder utilizar los componentes ADO.


Descargar aquí: https://www.microsoft.com/es-es/down....aspx?id=13255


Primero situar en una TForm el componente TADOQuery.


Modificar las siguientes propiedades:


CursorLocation : clUserServer
ParamCheck: False
ConnectionString: Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\miCarpeta\miEXCEL2007file.xlsx;Extended Properties=EXCEL 12.0 Xml;HDR=No;Persist Security Info=False


Para crear/modificar la ConnectionString podemos utilizar el Wizard asociado a la propiedad pulsando el botoncito y seguidamente el botón Build en la ventana que os aparece. Seleccionamos "Microsoft.ACE.OLEDB.12.0"en la pestaña Proveedor, indicamos ruta y archivo EXCEL en la pestaña Conexión y en la pestaña Todas deberemos escribir, sin las comillas, "EXCEL 12.0 Xml;HDR=No" en el campo Extended Properties.


Se puede probar la conexión pulsando el botón "Probar conexión" en la pestaña Conexión.


En la propiedad SQL del TADOQuery incluiremos la siguiente sentencia SQL "SELECT * FROM [Hoja1$A1:G20]" donde Hoja1$ es el nombre de la hoja que se desea modificar dentro del documento EXCEL y A1:G20 (ejemplo) es el grupo/rango de celdas sobre las que actuaremos.


Si agregamos un TDataSource y un TDBGrid en el Form y los conectamos adecuadamente, podremos visualizar inmediatamente las celdas seleccionadas al activar el TADOQuery en tiempo de diseño.


Realizado lo anterior, podremos manejar la hoja EXCEL como una simple TTable, usando los métodos Edit, Post, Cancel, etc.


Para modificar los valores lo más simple es usar :

Código Delphi [-]
  
 ADOQuery1.Fields[Columna-1].Value := TuValor;  // Cuidando que el tipo de valor se corresponda con el de la celda (Float / Fecha / Texto).

Para recorrer la "Tabla" se puede usar:

Código Delphi [-]
 
 while not ADOQuery.Eof do
   begin
   ...
   ...
   ADOQuery.Next;
   end;

Entiendo que esta es una solución simple para hojas EXCEL pequeñas o poco complejas.


Tener en cuenta que solo se modificará el valor de la celda, sin afectar al formato, color, bordes, etc. ya que no se puede modificar el formato mediante ADO.


Espero que os sea de utilidad.


Saludos