[alcides]

Hola a todos, utilizo delphi 7 y mis tablas estan en access.

la forma que mas adelante le presento es como convierto el resultado de un reporte en un documento en excel.

ahora bien como lo convierto en archivo txt

Código SQL [-]
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;

gracias mil,


Alcides
Rep.Dom.