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?
Liste todos os nomes de arquivos de uma pasta específica na planilha com o kutools para Excel
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 em uma coluna A, você deve digitar os novos nomes de arquivos na coluna B, conforme mostrado 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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
