Renomear Pastas VBA Excel Planilha Grátis

Como renomear pastas com VBA no Excel? Veja esta planilha grátis para renomear uma lista de pastas automaticamente.

Como renomear pastas com VBA

Para renomear uma pasta do Windows no Excel com VBA é necessária apenas uma linha de código.

Veja um passo-a-passo de como executar uma única linha para renomear uma pasta usando o VBA do Excel:

1. Abra uma nova pasta de trabalho no Excel
2. Pressione Alt+F11 para abrir o VBE, ambiente de edição do VBA no Excel
3. Clique em Inserir->Módulo
4. No módulo incluso insira o seguinte código:
   Public sub lsRenomearPasta
   Name "c:\teste" As "c:\Teste_Abc"
   End sub
5. Substitua c:\teste pela pasta que quer renomear e c:\Teste_Abc pela nova pasta
6. Pressione F5 para que seja renomeada a pasta

A pasta c:\teste será renomeada para c:\Teste_Abc.

Planilha para Renomear Pastas com VBA Excel

Criamos uma planilha para renomear uma lista de pastas do Windows automaticamente pelo Excel.

A planilha é muito prática, nesta planilha, você preenche o caminho completo da pasta de origem na coluna da esquerda, e o caminho completo da nova pasta na coluna ao lado desta.

Em seguida basta clicar no botão Renomear Pastas para que as pastas sejam renomeadas automaticamente.

Na imagem acima temos todo o processo exemplificado.

Ao clicar no botão o VBA renomeia os caminhos da coluna Pasta da tabela para o caminho descrito em Novo nome da pasta.

Para cada linha são marcadas as situações para Renomeado no caso de a pasta ter sido renomeada para o novo caminho e Já existe para a situação em que a pasta já existe.

No exemplo acima clicamos uma vez e renomeamos e clicamos novamente para que você veja que a pasta agora já existe, ou seja, o processo de alteração da pasta foi feito com sucesso.

Nele fazemos um loop pela quantidade de registros que existem na tabela e passamos um a um realizando a verificação se a pasta já existe e se não existe realizamos a alteração do nome da pasta.

Código VBA para Alterar Lista de Pastas pelo VBA

O código VBA abaixo é para realizar um loop por todas as pastas que estão na planilha e renomear todos um a um.

Public Sub lsRenomearPastas()
    On Error Resume Next
    
    Dim lUltimaLinhaAtiva   As Long
    Dim i                   As Long
    Dim oFileSystem         As Object
    
    Set oFileSystem = CreateObject("Scripting.FileSystemObject")
    
    lUltimaLinhaAtiva = Renomear.Cells(Renomear.Rows.Count, 2).End(xlUp).Row
    
    For i = 8 To lUltimaLinhaAtiva
        If oFileSystem.FolderExists(Renomear.Cells(i, 3).Value) = False Then
            Name Renomear.Cells(i, 2).Value As Renomear.Cells(i, 3).Value
            Renomear.Cells(i, 4).Value = "Renomeado"
        Else
            Renomear.Cells(i, 4).Value = "Já existe"
        End If
    Next i
    
    MsgBox "Processo Concluído!"
End Sub

O código acima cria um objeto Scripting.FileSystemObject e o utiliza para verificar se a pasta existe.

E no For à partir da linha 8 realiza um loop por todas as linhas da tabela e renomeia as pastas.

O código fonte está disponível sem bloqueio na planilha para download.

Download Planilha de Renomear Pastas VBA

Realize o download da planilha para alterar o nome das pastas pelo Excel neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.