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;
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.