F�rum Transformar XLS em CSV #447804

04/07/2013

Amigos, gostaria de saber se consigo de alguma forma atrav�s do Delphi, converter um arquivo XlS para o formato CSV.

SEM QUE SEJA NECESS�RIO O OFFICE INSTALADO NA MAQUINA!

Com o Office na maquina, fiz dessa forma e funcionou perfeitamente

const
  xlCSV = $00000006;
var
  xls, xlw: Variant;
begin
  try
    xls := GetActiveOleObject('Excel.Application');
  except
    xls := CreateOleObject('Excel.Application');
  end;
  xls.DisplayAlerts := False;
  xlw := xls.WorkBooks.Open(Format('%s\Layout.xlsx',[ExtractFileDir(ParamStr(0))]));
  xlw.SaveAs(Format('%s\Layout.csv',[ExtractFileDir(ParamStr(0))]), xlCSV);
  xlw.Close;
  xlw := UnAssigned;
  xls.Quit;
  xls := UnAssigned;
end;

Sem o Office, sem chance obviamente. Porem gostaria de saber se existe outra forma de fazer isso.

[]'s

Diego Garcia

Curtir t�pico

+ 0

Responder

Posts

04/07/2013

Diego Garcia

por algum motivo, o c�digo foi estranho

const
  xlCSV = $00000006;
var
  xls, xlw: Variant;
begin
  try
    xls := GetActiveOleObject('Excel.Application');
  except
    xls := CreateOleObject('Excel.Application');
  end;
  xls.DisplayAlerts := False;
  xlw := xls.WorkBooks.Open(Format('%s\Layout.xlsx',[ExtractFileDir(ParamStr(0))]));
  xlw.SaveAs(Format('%s\Layout.csv',[ExtractFileDir(ParamStr(0))]), xlCSV);
  xlw.Close;
  xlw := UnAssigned;
  xls.Quit;
  xls := UnAssigned;
end;

Responder

Gostei + 0

21/07/2015

Claudio Ferreira

Imagino pela data do post que voce j� tenha resolvido, achei seu post porque tamb�m estava a procura desse tipo de solu��o, encontrei com um colega, faz exatamente isso :

http://jbsolucoes.net/xls2csv/

Responder

Gostei + 0

08/09/2020

Vicente Santos

const
  xlCSV = $00000006;
var
  xls, xlw: Variant;
begin
  try
    xls := GetActiveOleObject('Excel.Application');
  except
    xls := CreateOleObject('Excel.Application');
  end;
  xls.DisplayAlerts := False;
  xlw := xls.WorkBooks.Open(Format('%s\\Layout.xlsx',[ExtractFileDir(ParamStr(0))]));
  xlw.SaveAs(Format('%s\\Layout.csv',[ExtractFileDir(ParamStr(0))]), xlCSV);
  xlw.Close;
  xlw := UnAssigned;
  xls.Quit;
  xls := UnAssigned;
end;

Sem o Office, sem chance obviamente. Porem gostaria de saber se existe outra forma de fazer isso.

[]'s

o meu deu certo ,mas no caso no lugar do ponto e virgula veio somente a virgula, para separar os campos, oque deve ser feito,?

Responder

Gostei + 0