Otimizar planilha para renomear arquivos
Enviado: 30 Mar 2021 às 18:10
Boa tarde!
Consegui uma planilha na internet (já faz um tempo, não lembro se foi aqui no fórum) que renomeia os arquivos de uma determinada pasta.
Funciona assim:
1) Eu colo o endereço da pasta na célula D1 e os arquivos contidos na pasta são listados na coluna B, da linha 3 pra baixo.
2) Preencho na coluna E ao lado do nome de cada arquivo e clico no botão renomear.
Otimização 01: Gostaria de ao invés de copiar o endereço da pasta e colar, clicar no botão "SELECIONAR PASTA" e escolher a pasta através do Windows Explorer.
Otimização 02: Antes de clicar botão RENOMEAR, preciso entrar no código VBA e alterar o endereço nas linhas 12 e 15. Gostaria que o código VBA já buscasse a informação da célula D1.
Eduardo
Consegui uma planilha na internet (já faz um tempo, não lembro se foi aqui no fórum) que renomeia os arquivos de uma determinada pasta.
Funciona assim:
1) Eu colo o endereço da pasta na célula D1 e os arquivos contidos na pasta são listados na coluna B, da linha 3 pra baixo.
2) Preencho na coluna E ao lado do nome de cada arquivo e clico no botão renomear.
Otimização 01: Gostaria de ao invés de copiar o endereço da pasta e colar, clicar no botão "SELECIONAR PASTA" e escolher a pasta através do Windows Explorer.
Otimização 02: Antes de clicar botão RENOMEAR, preciso entrar no código VBA e alterar o endereço nas linhas 12 e 15. Gostaria que o código VBA já buscasse a informação da célula D1.
Código: Selecionar todos
Grato!Sub RenomearArquivo()
' Solicita a confirmação antes de renomear
If MsgBox("Deseja realmente renomear todos os arquivos?", vbMsgBoxHelpButton + vbQuestion + vbYesNo, "Renomear Arquivos") = vbNo Then
Exit Sub
End If
'Executa no intervalo de linhas definido
For x = 3 To 100
'Pega o nome antigo na Coluna A e armazena na variavel
NomeAntigo = "[b]C:\Users\eduardo\Documents\audio\[/b]" & Range("B" & x).Value
'Pega o novo nome na coluna B e armazena na variavel
NovoNome = "[b]C:\Users\eduardo\Documents\audio\[/b]" & Cells(x, 3).Value
Name NomeAntigo As NovoNome
Next
End Sub
Eduardo