Converter arquivo .csv em .xlsx
Enviado: 12 Nov 2020 às 17:15
por Jeczei
Caros, boa tarde
Conseguem me ajudar com uma rotina para converter um arquivo (local e nome passado por parâmetro) com extensão ".csv" em arquivo ".xlsx" ?
Obrigado
Abraços
Re: Converter arquivo .csv em .xlsx
Enviado: 14 Nov 2020 às 10:32
por Jeczei
Pessoal, bom dia
Consegui uma solução parcial, conforme códigos abaixo, pois não descobri porque a conversão direta de .csv para .xlsx não funciona, sendo necessário inicialmente renomear o arquivo para .txt e em seguida converter para .xlsx.
Se alguém souber a razão por favor informar, pois evitaria um passo adicional para renomear o arquivo.
Abraços,
------------------------------------------------------------------------
Name arq_entrada As arq_renomeado
Workbooks.OpenText Filename:=arq_renomeado, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True
ActiveWorkbook.SaveAs Filename:=arq_saida, FileFormat:=51, AccessMode:=xlExclusive, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges, local:=True
ActiveWorkbook.Close
------------------------------------------------------------------------