![]() |
Como se crea un fichero XLS desde Delphi y paleta Servers
Me gustaría saber si existe posiblidad de generar directamente mediante codigo Delphi un fichero XLS de Excel
|
Si no querés que Delphi inicie Excel para generar un archivo, porque no sabés si en las máquinas donde vas a instalar tu aplicación tienen Excel o tienen otra versión, te recomiendo utilizar unos componentes que yo hice, los podes bajar de delphi.com.ar.
La ventaja de estos componentes es que no importa si el cliente tiene instalado Excel o su versión, y además son mucho mas veloces. |
Hola!
Te pongo un ejemplillo rápido de como accedo a excel. Como muy bien comenta delphi.com.ar, para que funcione correctamente tienes que tener instalado el Excel... Código:
Uses Código:
Excel.Cells[1,1].Value; Código:
//***** IMPORTANTÍSIMO *****// Saludos y Suerte!!! |
agradezco vuestra ayuda, pero todavía no me queda claro si puedo crea o generar el XLS desde cero, algo asi como:
Excel.aplication.createfile('C:\miFicheroExcel.xls'); // seguramente sea una burrada Gracias de nuevo |
Hola :)
quizas el siguiente ejemplo te pueda ayudar, es utililizando el componente TExcelAplication, del palette Servers. Receta: Ingredientes en delphi: 1)TForm of course 2)TQuery 3)SaveDialog 5)TExcelapplication 6)bitButton 7)dbGrid procedure TForm1.bbtnExportToExcelClick(Sender: TObject); var LineNumber, LCID : Integer; LineString : string; begin with SaveDialog1 do begin FileName :=''; Filter:= 'Excel files|*.XLS;All Files|*.*'; DefaultExt := 'XLS'; Title := 'Exporting to Excel'; if execute then begin query1.Open; LCID := GetUserDefaultLCID; with ExcelApplication1 do begin connect; try visible[LCID] := true; Workbooks.Add(EmptyParam,LCID); //Paso 1 Range['A1','J1'].Value := VarArrayOf(['Order No', 'Cust No','Sale Date','Emp No', 'Ship Via', 'Terms','Items Total', 'Tax Rate','Freight','Amount Paid']); //Paso2 Se definen formato de celdas (alineacion de texto, margenes, fuente, etc.) with Range['A1','J1']do begin HorizontalAlignment := xlcenter; VerticalAlignment := xlBottom; Wraptext := false; Orientation := 0; ShrinkTofit := false; MergeCells := false; Font.Bold := true; end; Query1.First; LineNumber := 1; //Paso 3, comenzamos a enviar datos a Excel While not query1.Eof do begin Inc(lineNumber); LineString := IntToStr(LineNumber); Range['A'+LineString, 'J'+LineString].Value := VarArrayof([Query1OrderNo.value, Query1CustNo.Value, //Paso 4 FormatDateTime('d-mmm-yy',Query1SaleDate.Value), Query1EmpNo.Value, Query1ShipVIA.Value, Query1Terms.Value, Query1ItemsTotal.Value, Query1TaxRate.Value, Query1Freight.Value, Query1AmountPaid.Value]); Query1.Next; end; //Paso 5 Range['H2','G'+LineString].NumberFormat := '0.00%'; Range['G2','G'+LineString].NumberFormat := '$#,##0.00'; Range['I2','I'+LineString].NumberFormat := '$#,##0.00'; Range['J2','J'+LineString].NumberFormat := '$#,##0.00'; Range['A1','J'+LineString].AutoFormat(xlRangeAutoFormatlist1, true, true,true,true,true,true); Range['A1','J'+LineString].Columns.AutoFit; ActiveWorkbook.SaveAs(FileName,xlNormal, '', '', false, false, xlNochange,xlUserResolution,False,EmptyParam,EmptyParam, LCID); Quit; finally disconnect; end; //try end; //with Excelapplication1 end; //if execute end; //with Savedialog1 end; Tip adiconal Range("A1").Select ActiveCell.FormulaR1C1 = "Order No" Es equivalente en Delphi a: Range['A1','A1'].select; ActiveCell.FormulaR1Ci := 'Order No'; Siempre es mejor utilizar arreglos para insertar en Excel datos por renglon, que celda por celda Range['A1','J1'].Value := VarArrayOf(['Order No', 'Cust No','Sale Date','Emp No', 'Ship Via', 'Terms','Items Total', 'Tax Rate','Freight','Amount Paid']); Saludos!! Pd. Espero te sirva de algo :) |
la verdad es que habia solucionado el problema con un componente que pille por internet, en torry.net, creo, que admas pasa a texto delimitado, dbf o algo asi;
no obstante siempre fui poco partidario se usar componentes ajenos a los standar de la paleta ( a excepcion de RX claro) con un poco de tiempo probaré de muy buena gana ese magnifico codigo. por supuesto, muchas gracias ana |
Este ejemplo esta muy interesante y completo, pero para crear un nuevo archivo de excel, pero ahora supongamos yo tengo ya una plantilla que se llama Plantilla.XLT, y ahi es donde yo quiero depositar mis datos, ¿como le indico que abra la plantilla para que trabaje con ella?
|
Y en que momento estas declarando Range??? no lo veo?? o como lo declaras???
|
Cita:
// Saludos |
Hola :)
Para enviar información a una plantilla ya creada de Excel, utiliza la sugerencia que te da delphi.com.ar "Uses ... Excel97, ComObj...; ... Var Excel : Variant; Archivo : String; ... //***** Creamos el Objeto Ole *****// try Excel := CreateOleObject('Excel.Application'); except Excel.Quit; showmessage('No se pudo crear el Objecto Excel.'); raise; end; //***** Asignamos el archivo a abrir *****// Archivo := 'c:\Hola.xls' Excel.Workbooks.Open(Archivo); ..." Si observas, para el ejemplo anterior es necesario que ya exista el fichero y en el posiblemente una plantilla en la cual deseas caiga la información. Cómo enviar la información? ExcelWorkSheet1.Workbooks.Open(Archivo); ExcelWorkSheet1.Range['A1','K90'].Font.Size := 8; ExcelWorkSheet1.Range['A1','K90'].Font.Bold := False; ExcelWorkSheet1.Range['A1','K90'].Font.Name := 'Arial'; ExcelWorkSheet1.Cells[3,3].Font.Bold:=true; ExcelWorkSheet1.Cells[3,3].Font.Size := 10; ExcelWorkSheet1.Cells[3,3].Font.Underline := 2; ExcelWorkSheet1.Cells[3,3].Value := 'Análisis de Presupuesto'; ExcelWorkSheet1.Cells[7,6].Value := 'Tipo de Proyecto:'; ExcelWorkSheet1.Cells[7,6].Range['C13','I13'].Value := VarArrayOf(['Clave','Elemento','Sección','Cantidad','Longitud','Precio','Importe']); Primero especificas el número de hoja, después el 'Range[]' o 'Cells[]', en el ejemplo de arriba vienen algunas líneas también para dar formato a las celdas que quiza no utilices porque tu plantilla ya existe, pero no esta de mas saberlas. Espero te ayude an algo lo anterior :) Saludos :) Belén Nota: Alguien podría decirme como le hacen para citar lo que otro integrante comento. Gracias!! |
Tambioén puedn crear un nuevo libro a partir de una plantilla .xlt así:
Código:
var // Saludos |
Cita:
Al momento de contestar el mensaje en lugar de oprimir "Responder" oprime "Citar" o usa directamente la etiqueta quote, por ejemplo, la cita de arriba se pone con: [ QUOTE=Anabel ]Nota: Alguien podría decirme como le hacen para citar lo que otro integrante comento. Gracias!![ /QUOTE ] sin los espacios al interior de []. // Saludos |
Veo que ya se ha tratado el cómo crear un NUEVO archivo hacia Excel, sin embargo, lo que yo necesito es hacer una comparación de un archivo XLS vs. un archivo DBF.
Para ello necesito leer, obviamente, ambos, por lo que mi pregunta sería ¿cómo traer datos de excel hacia Delphi? Agradezco de antemano su ayuda :p |
Cita:
// Saludos |
Hola, Román! Muchas gracias por el tip! lo intentaré y te comento si es que me funciona :D
Sinceramente no había encontrado nada sobre el tema la primera vez que busqué, por lo que creo que tendré qué aprender a buscar mejor :( Espero me tengan paciencia porque soy nuevo en esto de Delphi, jejeje :p Un saludo desde México a tod@s :cool: |
Hola de nuevo, Román! Desafortunadamente, no me funcionó asi como lo mencionaste a Darkside :( , pues me envia un mensaje que no se puede conectar porque XLS no es un formato de base de datos correcto.
Si sabes algo de eso, agradeceré tu ayuda nuevamente. Un saludo enorme :D Alejandro |
Bueno, no se si seguir el hilo pero con todo lo aqui dicho me parecio correcto continuar aqui. mi pregunta es:
¿ como incluyo formulas en las hojas excel creadas por este método ? logré incluir una formula poniendo un campo String con el contenido t.FieldByName(Cmp[ni]).AsString := '=H##-G##'; t.FieldByName(Cmp[nj]).AsString := '=H##*F##'; Pero ¿Como se usan las funciones de Excel? =Suma() -> =Sum() este funciona con SUM =SI() = Entero() |
Pues mira, lo que yo hago es, crear primero la plantilla en Excel, la cual contendra, ya un formato predeterminado de fuentes, bordes, colores etc. y si deseo incluir alguna formula, en la misma plantilla la coloco donde desee que se aplique esta formula, al pasar los datos, en lugar de crear el archivo, llamo a la platilla y ahí vacio mis datos, y como caen a un formato predeterminado, todo es respetado, tanto formatos de texto, bordes etc. y las formulas funcionan muy bien.
Me expliqué??? |
En este caso no me sirve lo de la plantilla, ya que la hoja es bastante compleja (una demostración de los calculos de un programa complejo según exigencias de la Ley) por eso estoy obligado a incluir las funciones de Excel, Ya logré usar fórmulas simples y la función SUMA que se usa por ej.
'=SUM(A1:A15)' ó '=RAND()' ----> Aleatorio Noten que es SUM y no SUMA ahora si trato de usar la funcion =SI() '=IF(B5-B6<0;B5-B6;0)' Me da un "Ole error 800A03EC" y lo mismo me pasa con la funcion ROUND (Redondear). He usado este código para hacer pruebas de sintaxis (en edit1.text) y no he podido encontrar el problema. Código:
Function LaFormula(f:String):String; |
hola foro
mi intencion es importar una tabla a excel y con este ejemplo me va estupendamente, pero el problema esta cuando lo hago sin que se vea el excel, es decir con la opcion de visible a false, y lo cierro con un quit, que me pregunta si quiero grabar o no el libro excel, quisiera cerrar pero sin grabar, ya que lo uso para hacer un paso intermedio de combinar correspondencia con word, muchas gracias y espero haberme explicado bien. |
La franja horaria es GMT +2. Ahora son las 01:20:59. |
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