FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
interbase a excel
existe algun componente que pueda utilizar en mis programas que me permita exportar la base de interbase a excel o algun otro formato que despues me permita importar desde excel.
O alguien me puede decir que puedo hacer para tener alguna forma de exportar mis datos de interbase. |
#2
|
||||
|
||||
Te puedo recomendar la "ExportSuite" que puedes bajar de mi página, estas exportan a XLS, WK1, TXT, HTML cualquier DataSet!
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
Me parece muy comodo usar un componente pero este procedimiento tambien te servira...
Código:
procedure excel(EXQuery : TDataSet ;NoCampos :integer); var XL, XArr: Variant; i : Integer; j : Integer; begin EXQuery.First; XArr:=VarArrayCreate([1,NoCampos],varVariant); try XL := GetActiveOleObject('Excel.Application'); except XL:=CreateOLEObject('Excel.Application'); // Ole object creation end; XL.WorkBooks.add; XL.visible:=true; j := 2; i := 0; while i < NoCampos do begin XArr[i+1]:=EXQuery.Fields[i].DisplayLabel; i := i+1; EXQuery.Next; end; XL.Range['A'+IntToStr(j), CHR(64+NoCampos)+IntToStr(j)].Value := XArr; XL.Range['A1',CHR(64+NoCampos)+IntToStr(j)].select; XL.Selection.Font.Name:='Times New Roman'; XL.Selection.Font.Size:=10; XL.Selection.Font.color := clblue; XL.Selection.Font.bold := true; XL.Selection.Font.underline := true; j := 3; EXQuery.First; while not EXQuery.Eof do begin i:=1; while i<=NoCampos do begin XArr[i] := EXQuery.Fields[i-1].Value; i := i+1; end; XL.Range['A'+IntToStr(j), CHR(64+NoCampos)+IntToStr(j)].Value := XArr; EXQuery.Next; j := j + 1; end; XL.Range['A1',CHR(64+NoCampos)+IntToStr(j)].select; XL.selection.Columns.AutoFit; XL.Range['A1','A1'].select; end;
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#4
|
||||
|
||||
Agrego: Como ventaja el componente que te sugiero, no utiliza el Excel para generar el archivo como el procedimiento que nos sugiere Jhonny, la ventaja de esto es que no nos tenemos que preocupar por la versión del Excel del equipo que ejecuta la aplicación, es mas si no tiene instalado el Excel funciona igualmente. Y otra ventaja es que como escribe en forma nativa el archivo, es mucho mas veloz que utilizar un 'Excel.Application' con este propósito. Como desventaja no podemos utilizar todas las facilidades que nos da Excel, para crear un archivo.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
Muy buena apreciación, y afirmo todo lo que delphi.com.ar a dicho
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#6
|
|||
|
|||
Les agradezco por la ayuda me sirvio de mucho ahora a utilizar lo aprendido.
|
#7
|
||||
|
||||
Holaaaaa
tengo una preguntita despues de leer este hilo: como hago para que cuando yo de click en un boton me haga lo que tiene ese procedimiento es decir: lo declaro excel:Texcel; ahora lo llamo excel(???????); pero lo que no se es que parametros deben ir dentro para que funcione el procedimiento excel. Gracias a todosssss besos chupos y abrazos
__________________
El espiritu humano no se acaba cuando es derrotado se termina cuando se rinde. |
|
|
|