Quiero abrir un fichero de texto con cierto formato en Excel. En VBA seria algo asi:
Cita:
Workbooks.OpenText Filename:= "C:\tmp\Prueba.TXT" , Origin:=xlWindows, StartRow:=16, DataType:=xlFixedWidth, FieldInfo:= Array(Array(0, 1), Array(7, 1), Array(31, 1), Array(43, 1), Array(53, 1), Array(67, 1))
|
Donde el parametro StartRow es la linea a partir de la cual se empieza a exportar el archivo de texto, y el campo FieldInfo indica la distribución de las columnas.
El código equivalente en Delphi que estoy usando el delphi es el siguiente:
Código Delphi
[-]
Excel := createOleObject('Excel.Application');
Excel.WorkBooks.Opentext(odImportar.FileName,emptyparam,'18',emptyparam,'Array(Array(0, 1), Array(7, 1), Array(31, 1), Array(43, 1), Array(53, 1), Array(67, 1))');
Excel.Visible := True;
y me sale un mensaje de error que dice "Fallo en el método Opentext de la clase Workbooks".
Si en vez de introducir el código anterior meto este:
Código Delphi
[-]
Excel := createOleObject('Excel.Application');
Excel.WorkBooks.Opentext(odImportar.FileName,emptyparam,'18',emptyparam);
Excel.Visible := True;
no me da un mensaje de error (Aunque no me coloca el texto en las columnas que yo quiero), por lo que supongo que el error debe estar en el campo FieldInfo. ¿Hay alguna manera de meterlo correctamente?
Gracias de antemano por vuestra ayuda.