Alterar a extensão do arquivo usando o código VBA (com imagens)
O que é isso:
Esse código VBA o ajudará a alterar a extensão dos arquivos em uma determinada pasta/diretório.
Por exemplo, se você quiser alterar a extensão dos arquivos do Excel recebidos em .xlsx para .xls ou visaversa, esse código VBA poderá ser usado.
Por que:
Se você estiver trabalhando em um projeto em que recebe arquivos de entrada com diferentes extensões de arquivo, no qual deseja que os arquivos estejam em um formato padrão para que o programa VBA funcione, e não tiver nenhum controle sobre os arquivos de entrada, esse código será muito útil, pois você poderá alterar a extensão para qualquer formato desejado.
O objeto Windows Script é usado para alterar a extensão nesse código.
Como alterar a extensão do arquivo usando o código VBA:
Etapa 1: Abra a pasta de trabalho que precisa ser protegida e pressione Alt + F11
Passo 2: Copie e cole o código abaixo na janela do editor VBA e salve a pasta de trabalho.
Sub changeExt()
strDir = "C:\myFolder\" 'mencione o caminho da pasta de seus arquivos aqui
Com CreateObject("wscript.shell")
.currentdirectory = strDir
.Run "%comspec% /c ren *.xlsx *.xls", 0, True
Finalizar com
End Sub
Etapa 3: Clique em F5 para executar o código.
Respostas de 2
E se... os arquivos não tivessem extensões no início... e você quisesse que todos eles adicionassem .xls?
Bom dia
Como alterar a extensão de um arquivo específico?
Como esse código altera todos os arquivos na pasta
Obrigado