Este fórum está sendo desativado

[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

[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
------------------------------------------------------------------------