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.