FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
Pasar datos a excel
Buenos días, quisiera saber si alguien me puede echar una mano con un problema que tengo, debo pasar datos de firebird a excel, a traves de una aplicacion delphi 6, pero me interesaria colocar los datos en unas celdas determinadas de la hoja, es decir dato 1 a la celda A4, dato 2 a la celda C4, así hasta el EOF del fichero.
No se como llamar a estas celdas directamente. La hoja excel ya existe y no se debe crear de nuevo. Muchas gracias Josep |
#2
|
|||
|
|||
//Dataset son los registros a pasar a excel
//Datos son los campos que queremos pasar y en que posicion // Valor es la posicion // Descripcion es el campo a pasar //Excel Exportacion //------------------------------------------------------------------------------ procedure TFormLoadExcel.RutEnviarExcel(DataSet, Datos: TDataSet; vFileName, vHoja: String); var i, j : Integer; vCol : Integer; ExcelApp, ExcelLibro, ExcelHoja : Variant; begin try ExcelApp := CreateOleObject('Excel.Application'); ExcelLibro := ExcelApp.Workbooks.open(vFileName); //abro un excel vacio solo con los titulos y el formato que quiero ExcelHoja := ExcelLibro.Worksheets[vHOJA]; //nombre de la hoja with DataSet do begin j := StrToIntDef(edPrimeraFila.text,1); First; while not EOF do begin Datos.First; While not Datos.Eof do begin vCol := Datos.FieldByname('Valor').AsInteger; vCampo := Datos.FieldByname('Descripcion').AsString; ExcelHoja.Cells(j, vCol) := FieldByName(Datos.FieldByname('Descripcion').AsString).AsString; if (FieldByName(vCampo) is TFloatField) then ExcelHoja.Cells(j, vCol) := FieldByName(vCampo).AsFloat; if (FieldByName(vCampo) is TIntegerField) then ExcelHoja.Cells(j, vCol) := FieldByName(vCampo).AsInteger; if (FieldByName(vCampo) is TDateField) then ExcelHoja.Cells(j, vCol) := FieldByName(vCampo).AsDateTime; if (FieldByName(vCampo) is TBooleanField) then ExcelHoja.Cells(j, vCol) := FieldByName(vCampo).AsBoolean; Datos.Next; end; Next; Inc(j); end; end; ExcelApp.ActiveSheet.SaveAs(vFileName); except ExcelApp.Quit; end; ExcelApp.Quit; end; |
#3
|
||||
|
||||
Excel
Gracias Toni, voy a ponerlo en practica enseguida ya te cuento
Josep |
#4
|
||||
|
||||
Hay otra forma mas secillas de hacerlo..
con los componentes max... yo tenia ese problema ya lo solucion, gracias a kos compañeros de clubdelphi: Neftali, Faust, [maeyanes]. muchas gracias.... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pasar de TQuery a Excel? | mrmanuel | Varios | 6 | 09-03-2007 13:32:41 |
Como pasar datos de una hoja de Excel a Bases de Datos de Paradox | Goyo | OOP | 1 | 06-02-2007 01:57:20 |
Pasar de QRP a Excel | Langdon | Impresión | 4 | 09-07-2006 03:54:54 |
Pasar datos de Excel a Interbase o Firebird | eibarra | Conexión con bases de datos | 2 | 12-03-2005 01:24:14 |
Pasar excel a Interbase | roboj | Firebird e Interbase | 1 | 10-11-2004 06:26:00 |
|