Resultado en Excel
El componente que debes usar es ExcelApplication de la Paleta Server. Ahi te envio un codigo con el que puedes utilizar una plantilla de Excel.
procedure TFormLoteVentas.tton2Click(Sender: TObject);
var
Excel, Libro: Variant;
i: integer;
Nombre: string;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.DisplayAlerts:= False;
Excel.WorkBooks.Add('C:\Archivos de programa\Tienda\Plantilla.xlt');
Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte';
Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];
MostrarLote.First;
i:= 2;
while not (MostrarLote.Eof) do
begin
Libro.Cells [i,1] := MostrarLotecodtrasval.Value;
Libro.Cells [i,2] := MostrarLotedescripcionplu.Value;
Libro.Cells [i,3] := MostrarLotecantidad.Value;
Libro.Cells [i,4] := MostrarLoteprecioventa.Value;
Libro.Cells [i,5] := MostrarLotemontoventa.Value;
inc(i);
MostrarLote.Next;
end;
Nombre:= 'mi fichero';
Libro.SaveAs('C:\Archivos de programa\Tienda\' + Nombre);
ShowMessage(' El fichero ' + Nombre + ' ha sido creado exitosamente');
Excel.Quit;
end;
Donde MostrarLote es un procedimiento almacenado o una Query segun utilizes. Debes poner en el uses las Unit Excel97, ComObj.
Saludos
Luis Garcia
|