Transformar XLS em CSV
04/07/2013
0
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
Posts
04/07/2013
Diego Garcia
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;
21/07/2015
Claudio Ferreira
http://jbsolucoes.net/xls2csv/
08/09/2020
Vicente Santos
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
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,?
Clique aqui para fazer login e interagir na Comunidade :)