Como extrair rapidamente o nome do arquivo do caminho completo no Excel?
Suponha que você tenha uma planilha que contém uma lista de caminhos de arquivos e agora deseja extrair apenas o nome do arquivo (a parte direita da última barra invertida) de cada caminho, conforme mostrado nas capturas de tela a seguir. Existem truques rápidos para lidar com essa tarefa?
Extrair nome do arquivo do caminho completo com fórmula no Excel
Extrair nome do arquivo do caminho completo com Função Definida pelo Usuário
Extrair nome do arquivo do caminho completo com código VBA
Extrair nome do arquivo do caminho completo com fórmula no Excel
No Excel, você pode usar a fórmula abaixo para extrair rapidamente apenas o nome do arquivo do caminho completo.
Selecione uma célula em branco, insira a fórmula abaixo nela e pressione a tecla Enter.
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
Dicas: A1 é a célula da qual você deseja extrair o nome do arquivo), e pressione o botão Enter, depois arraste a alça de preenchimento para preencher o intervalo desejado. Depois disso, o nome do arquivo será extraído de cada célula.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Extrair nome do arquivo do caminho completo com Função Definida pelo Usuário
Com a seguinte Função Definida pelo Usuário, você pode obter o nome do arquivo facilmente e rapidamente.
1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function
3. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications e voltar para a planilha. Em uma célula em branco, B1 por exemplo, insira a fórmula abaixo nela e pressione a tecla Enter.
=FunctionGetFileName(A1)
Depois selecione novamente a célula B1, arraste a alça de preenchimento para o intervalo onde deseja aplicar esta fórmula, e todos os nomes de arquivos serão extraídos dos caminhos completos como no seguinte resultado:
Extrair nome do arquivo do caminho completo com código VBA
Além da Função Definida pelo Usuário, um código VBA também pode ajudá-lo a extrair os nomes dos arquivos. Por favor, faça o seguinte:
1. Mantenha pressionadas as teclas ALT + F11 para abrir a Janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
splitList = VBA.Split(Rng.Value, "\")
Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub
3. Em seguida, pressione a tecla F5 para executar este código e selecione o intervalo do qual deseja extrair o nome do arquivo, veja a captura de tela:
4. E depois clique em OK, os nomes dos arquivos foram extraídos da seleção conforme a seguir:
Observação: Com este código VBA, os dados originais serão destruídos, então você deve fazer uma cópia antes de aplicar este código.
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