Excel a Txt
Hola amigos,
tengo un problemita resulta que tengo una funcion para generar un xls a txt, este funciona perfecto, pero lo que necesito es que lo genere sin Tabulaciones como lo puedo hacer para que no me genere las tabulaciones por columna?? que salga todo continuo uno columna conjunta a la otra
Espero me entiendan abajo les dejo la funcion
function ExcelSaveAsText(ExcelFile, TextFile: TFileName): Boolean;
const
xlText = -4158;
var
ExcelApp: OleVariant;
vTemp1, vTemp2, vTemp3: OLEVariant;
begin
Result := False;
try
ExcelApp := CreateOleObject('Excel.Application');
except
// Fehler beim öffnen von Excel...
// Error occured...
Exit;
end;
try
ExcelApp.Workbooks.Open(ExcelFile);
ExcelApp.DisplayAlerts := False;
vTemp3 := true;
vTemp2 := xlText;
vTemp1 := TextFile;
ExcelApp.ActiveWorkbook.SaveAs(vTemp1, vTemp2, vTemp3);
Result := True;
finally
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
end;
|