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;

Hola, te recomiendo dar una leida a este tutorial donde aprenderás a manipular de una manera más general Excel, lo que hace la función anterior es mandar a llamar a Excel para que él solito guarde el archivo como texto, y esto siempre te lo va a guardar con tabulaciones para separar las columnas.

Saludos