Guardar archivo de texto como Excel 2007-2010

[[nlsgarcia]]

cmfab,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Excel, WrkS, WrkB : OLEVariant;
  XlFileFormat : Variant;
  ConsecutiveDelimiter : Variant;
  Tab : Variant;
  Comma : Variant;

begin

  Excel := createOleObject('Excel.Application');

  Excel.DisplayAlerts:=false;

  ConsecutiveDelimiter := True;
  Comma := False;
  Tab := True;

  Excel.Workbooks.Opentext('D:\TestFile_Tab.txt',
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           ConsecutiveDelimiter,
                           Tab,
                           EmptyParam,
                           Comma,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam,
                           EmptyParam);

  XlFileFormat :=  51; // xlWorkbookDefault;

  Excel.WorkBooks[1].WorkSheets[1].Name := 'TAB';

  WrkB := Excel.WorkBooks[1].WorkSheets['TAB'];
  WrkB.SaveAs('D:\ExcelFile.xlsx',XlFileFormat);

  Excel.quit;

end;

El código anterior permite generar un WorkBook de Excel 2010 a partir de un archivo de texto en formato TAB usando Delphi 7.

Tanto este código como el anterior fueron probados en Windows 7 Professional x32 y Excel 2010.

Revisa los links mencionados para cualquier cambio que requieras en la Automatización de Excel 2010.

Espero sea útil

Nelson.