Como renomear vários arquivos de uma pasta no Excel?

A maioria de nós já enfrentou esse problema em que precisamos renomear vários arquivos em uma pasta. Renomear os nomes dos arquivos um por um pode nos deixar loucos se houver centenas ou milhares de arquivos nessa pasta. Existem boas funções para nos ajudar a lidar com essa tarefa?

Passo 1: Liste todos os nomes de arquivos de uma pasta específica na planilha com o Kutools para Excel

Passo 2: Renomeie vários arquivos de uma pasta no Excel com código VBA

Liste todos os nomes de arquivos de uma pasta específica na planilha com o Kutools para Excel

Se houver vários arquivos que você deseja renomear, primeiro, você pode listar os nomes antigos dos arquivos em uma coluna da planilha e, em seguida, inserir os novos nomes de arquivos que deseja substituir. Para listar rapidamente todos os arquivos na planilha, você pode usar o utilitário Lista de Nomes de Arquivos do Kutools para Excel.

Após instalar o Kutools para Excel, faça o seguinte:( Baixe Agora Grátis o Kutools para Excel )

1. Clique em Kutools Plus > Importar & Exportar > Lista de Nomes de Arquivos, veja a captura de tela:

2. No Lista de Nomes de Arquivos caixa de diálogo, clique no botão para escolher a pasta de arquivos que deseja listar os arquivos e, em seguida, clique em Todos os arquivos a partir do Tipo de arquivo, veja a captura de tela:

3. Em seguida, clique no botão OK, todos os nomes de arquivos foram listados em uma coluna de uma nova planilha, assim como alguns atributos de arquivo, e agora você pode excluir outras colunas indesejadas e deixar apenas a coluna Nome do Arquivo, veja a captura de tela:

Clique para saber mais sobre este recurso Lista de Nomes de Arquivos…

Baixe Agora Grátis o Kutools para Excel

Renomeie vários arquivos de uma pasta no Excel com código VBA

Depois de listar todos os nomes originais dos arquivos na coluna A, você deve digitar os novos nomes de arquivos na coluna B conforme mostrado na captura de tela a seguir:

E aqui vou falar sobre um código VBA que pode ajudá-lo a substituir os nomes antigos dos arquivos pelos novos nomes de arquivos de uma só vez. Por favor, siga as etapas abaixo:

1. Pressione as teclas ALT + F11 e abrirá a Janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo e cole a macro a seguir na janela do Módulo.

Código VBA: Renomear vários arquivos em uma pasta

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3. Após colar o código, pressione a tecla F5 para executar este código, e na janela Procurar, selecione a pasta na qual deseja alterar os nomes dos arquivos, veja a captura de tela:

4. E então clique em OK, todos os nomes antigos dos arquivos serão substituídos pelos novos nomes imediatamente. Veja as capturas de tela:

Notas:

1. Ao listar seus nomes antigos e novos de arquivos, a extensão do arquivo deve ser incluída.

2. No código acima, a referência A:A indica a lista de nomes antigos que você deseja renomear, e a referência B contém os novos nomes que deseja usar, você pode alterá-los conforme necessário.

Demonstração: Renomear vários arquivos de uma pasta no Excel

Artigos relacionados:

Como criar planilhas de sequência a partir de um intervalo de células no Excel?

Como renomear várias planilhas no Excel?