procedure TFrm_Todo_Inventario.SpeedButton3Click(Sender: TObject);
var
Excel, Libro : Variant;
i : integer;
Nombre : string;
Titulo_Sec, Titulo_Est, Titulo_Mov, Titulo_4 :String;
tcodigo_articulos, tdescripcion_articulos, tfecha_entrada, tvalor_mensual :String;
tcantidad_articulos, tdepreciacion_acumulada, tvalor_libro, tvalor_adquisicion :String;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.DisplayAlerts:=False;
Excel.WorkBooks.Add('C:\Documents and Settings\Administrador\Plantillas\Excel.xls');
Excel.Workbooks[1].WorkSheets[1].Name :='Reporte';
Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];
Titulo_Sec :='Secretaria xxxxxxxxxxxxxxxxxxxx';
Titulo_Est :='Activos Fijo';
Titulo_Mov :='Articulos por Departamento';
Titulo_4 :=' ';
tcodigo_articulos := 'Codigo';
tdescripcion_articulos := 'Descripción';
tcantidad_articulos :='Cant.';
tfecha_entrada := 'Fecha Ent.';
tvalor_adquisicion :='Valor adq.';
tvalor_mensual :='Dep.Mensual';
tdepreciacion_acumulada :='Dep.Acum.';
tvalor_libro :='Valor Libro';
Qry_Rep_Inventario.First;
i:=7;
while not (Qry_Rep_Inventario.Eof) do
begin
Libro.Cells [1,1] := Titulo_Sec;
Libro.Cells [2,1] := Titulo_Est;
Libro.Cells [3,1] := Titulo_Mov;
Libro.Cells [4,1] := Titulo_4;
Libro.Cells [6,1] := tcodigo_articulos;
Libro.Cells [6,2] := tdescripcion_articulos;
Libro.Cells [6,3] := tcantidad_articulos;
Libro.Cells [6,4] := tfecha_entrada;
Libro.Cells [6,5] := tvalor_adquisicion;
Libro.Cells [6,6] := tvalor_mensual;
Libro.Cells [6,7] := tdepreciacion_acumulada;
Libro.Cells [6,8] := tvalor_libro;
Libro.Cells [i,1] := Qry_Rep_InventarioCodigo_Articulos.Value;
Libro.Cells [i,2] := Qry_Rep_InventarioDescripcion_Articulos.Value;
Libro.Cells [i,3] := Qry_Rep_InventarioCantidad_Articulos.Value;
Libro.Cells [i,4] := Qry_Rep_InventarioFecha_Entrada.Value;
Libro.Cells [i,5] := Qry_Rep_InventarioValor_Adquisicion.Value;
libro.cells [i,6] := qry_rep_inventariodepreciacion_mensual.Value;
Libro.cells [i,7] := qry_rep_inventariodepreciacion_acumulada.Value;
libro.cells [i,8] := qry_rep_inventariovalor_libro.Value;
inc(i);
Qry_Rep_Inventario.Next;
end;
Nombre:=' Inv_Dpto ';
Libro.SaveAs('c:\'+ Nombre);
ShowMessage('El fichero ' + Nombre + ' ha sido creado exitosamente');
Excel.quit;
end;