Exportar desde BDE a Excel

[tamara]

Hola a todos:

Por favor alguien me podria ayudar:

Necesito exportar una tabla o un query desde deplhi 3 a un archivo en Excel, como puedo hacerlo ??


Gracias


Tamara

[marcoszorrilla]

Primero: has hecho la pregunta en 3 Foros, por lo que del de Varios la he borrado, cuando leas la solución que te propongo entre otras posibles, convendría que leyeras la Guia de estilo de los Foros en donde se habla de este caso, es decir la pregunta ha de ponerse solamente en un foro:


Pon en el Uses de tu Form ComObj
Y desde una rejilla en donde estás visualizando los datos.

procedure TfrConFacturas.SpeedButton4Click(Sender: TObject);
var
excel:Variant;
fila,columna:Integer;
Data : TDataSet;
MyDataSet:TDataSet;

begin
try
excel:=CreateOleObject('Excel.Application');
except
ShowMessage('Excel no se pudo iniciar.');
exit;
end;
excel.Visible:=true;

Data:=DbGrid1.DataSource.DataSet;
Data.First;
fila:=1;
columna:=1;
excel.Workbooks.Add;

//Poner los títulos
for columna := 0 to DbGrid1.Columns.Count-1 do
begin
excel.Cells[fila,columna + 1].Value:=DbGrid1.Columns[columna].FieldName;
end;

fila:=2;

//Desengachar controles para agilizar
DmXxx.Factura.DisableControls;
DmXxx.HLinalbaF.DisableControls;
try
while not(Data.eof) do
begin

for columna := 0 to DbGrid1.Columns.Count-1 do
begin
if (columna < 4) or (Columna > 19) then
excel.Cells[fila,columna + 1].Value:=Data.FieldByName(DbGrid1.Columns[columna].FieldName).asString
else
excel.Cells[fila,columna + 1].Value:=Data.FieldByName(DbGrid1.Columns[columna].FieldName).asFloat;
end;
Data.Next;
fila:= fila + 1;
end;
Except
ShowMessage('Atención, se produjo un error en la transmisión.');
end;
DmXxx.Factura.EnableControls;
DmXxx.HLinalbaF.EnableControls;

end;


Un Saludo.