Como abrir y modificar un archivo de Excel en builder
Hola amigos del club, tengo un problema quiero que me ayuden a desde buider abrir un archivo de Excel (que ya fue guardado anteriormente) para modificarlo, ya que quiero llenar un formato que ya esta hecho y la verdad prefiero insertarle los datos al formato desde builder, que darle formato desde builder a un archivo de Excel.
Ya he investigado en el foro pero lo único que encontré es el código para abrir un archivo nuevo de Excel y insertarle datos (aun que este codigo me ayuda un poco pero me falta saber abrir un archivo existente). Variant Excel,Libro,Hoja,Celda; Excel = CreateOleObject("Excel.Application"); Excel.OlePropertySet("Visible", true); Libro=Excel.OlePropertyGet("Workbooks"); Libro.OleProcedure("Add"); Hoja=Libro.OlePropertyGet("Item",1); Libro=Hoja.OlePropertyGet("Worksheets"); Libro.OlePropertyGet("Item",1).OlePropertySet("Name","The yellow book-keeping "); Libro.OlePropertyGet("Item",2).OlePropertySet("Name","The red book-keeping "); for (int j=1;j<3;j++) { Hoja=Libro.OlePropertyGet("Item",j); for (int i=1;i<11;i++) { Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",i,1).OlePropertySet("Value",i); Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",i,2).OlePropertySet("Value",i*5); Celda=Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",i,2); Celda.OlePropertyGet("Font").OlePropertySet("Color",clBlue); Celda.OlePropertyGet("Font").OlePropertySet("Bold",true); Celda.OlePropertyGet("Interior").OlePropertySet("ColorIndex",9-3*j); } Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",11,1).OlePropertySet("Value","=SUM(A1:A10)"); Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",11,2).OlePropertySet("Value","=SUM(B1:B10)"); } Excel.OlePropertySet("DisplayAlerts",false); //suppress the warning dialog on closing the server Excel.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs","test.xls"); //Excel.OleProcedure("Quit"); Excel=Unassigned; Espero de su ayuda amigos del club gracias.:confused: |
La franja horaria es GMT +2. Ahora son las 14:07:41. |
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