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

Pode ser que a maioria de nós sofra com este problema que precisamos renomear vários arquivos em uma pasta, renomear os nomes de arquivos um por um vai nos deixar loucos se houver centenas ou milhares de arquivos nessa pasta. Existem boas funções para lidarmos com essa tarefa?

Etapa 1: liste todos os nomes de arquivos de uma pasta específica na planilha com o kutools para Excel

Etapa 2: renomear 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 dos arquivos antigos em uma coluna da planilha e, em seguida, inserir os novos nomes de arquivo que deseja substituir. Para listar rapidamente todos os arquivos na planilha, você pode usar o Kutools for Excel'S Lista de nomes de arquivo utilidade.

Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora )

1. Clique Kutools Plus > Importar e Exportar > Lista de nomes de arquivo, veja a captura de tela:

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

3. Então clique OK botão, 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 apenas deixar o Nome do arquivo coluna, veja a captura de tela:

Clique para saber mais sobre este recurso Lista de nomes de arquivos ...

Baixe grátis o Kutools para Excel agora

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

Depois de listar todos os nomes de arquivos originais 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 de arquivos antigos pelos novos de uma vez. Siga os seguintes passos:

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para janela de aplicativos.

2. Clique inserção > Móduloe cole a macro a seguir no 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. Depois de colar o código, pressione F5 chave para executar este código, e no Procurar janela, selecione a pasta na qual deseja alterar os nomes de arquivo, consulte a imagem:

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

Observações:

1. Quando você lista seus nomes de arquivo novos e antigos, a extensão do arquivo deve ser incluída.

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

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?