Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-05-2016
adrall adrall is offline
Miembro
 
Registrado: ene 2007
Posts: 94
Poder: 18
adrall Va por buen camino
Modificar un documento MS EXCEL 2003 [.xls] o 2007 [.xlsx]

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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
crear un grafico en excel 2007 desde Delphi 2007 Jose Manuel Varios 1 27-12-2013 20:56:30
Como crear Documento Word en Delphi 2007 Bertifox2008 Internet 2 28-11-2008 20:14:13
Problemas con Excel 2003 gaby_stars Varios 1 01-06-2006 01:10:56
Problemas con Excel 2003 gaby_stars Varios 0 31-05-2006 23:43:51
modificar documento word desde un servidor joaquinmol Internet 0 31-03-2005 20:41:23


La franja horaria es GMT +2. Ahora son las 15:20:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi