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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins