Tema: Excel a Txt
Ver Mensaje Individual
  #1  
Antiguo 08-06-2010
Avatar de paulina_puentes
paulina_puentes paulina_puentes is offline
Registrado
 
Registrado: may 2007
Posts: 8
Reputación: 0
paulina_puentes Va por buen camino
Cool 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;
Responder Con Cita