Como extrair rapidamente o nome do ficheiro a partir do caminho completo no Excel?
Suponha que tem uma folha de cálculo com uma lista de caminhos de ficheiros e pretende extrair apenas o nome do ficheiro — ou seja, a parte à direita da última barra invertida — de cada caminho, tal como ilustrado nas imagens seguintes. Existem truques rápidos para realizar esta tarefa?
Extrair o nome do ficheiro a partir do caminho completo com fórmula no Excel
Extrair o nome do ficheiro a partir do caminho completo com Função Definida pelo Utilizador
Extrair o nome do ficheiro a partir do caminho completo com código VBA
Extrair o nome do ficheiro a partir do caminho completo com fórmula no Excel
No Excel, pode utilizar a fórmula abaixo para extrair rapidamente apenas o nome do ficheiro a partir do caminho completo.
Selecione uma célula vazia, introduza a fórmula abaixo e, em seguida, prima a tecla Enter.
=MID(A1,FIND(«*»,SUBSTITUTE(A1,«\»,«*»,LEN(A1)-LEN(SUBSTITUTE(A1,«\»,«»))))+1,LEN(A1))
Dicas: A1 é a célula da qual pretende extrair o nome do ficheiro. Prima Enter e, de seguida, arraste a pega de preenchimento até à gama pretendida. Após este passo, o nome do ficheiro será extraído de cada célula.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Extrair o nome do ficheiro a partir do caminho completo com Função Definida pelo Utilizador
Com a seguinte Função Definida pelo Utilizador, obtém facilmente e rapidamente o nome do ficheiro.
1. Mantenha premidas 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. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications e regressar à folha de cálculo. Numa célula vazia, por exemplo B1, introduza a fórmula abaixo e prima a tecla Enter.
=FunctionGetFileName(A1)
De seguida, selecione novamente a célula B1, arraste a pega de preenchimento até à gama onde pretende aplicar esta fórmula e todos os nomes dos ficheiros serão extraídos dos respetivos caminhos completos, conforme ilustrado no resultado seguinte:
Extrair o nome do ficheiro a partir do caminho completo com código VBA
Além da Função Definida pelo Utilizador, o código VBA também pode ajudá-lo a extrair os nomes dos ficheiros. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11para 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, prima a tecla F5 para executar este código e selecione o intervalo do qual pretende extrair o nome do ficheiro, conforme ilustrado na imagem:
4. De seguida, clique em OK e os nomes dos ficheiros serão extraídos da seleção, conforme se segue:
Nota: Este código VBA substitui os dados originais, por isso certifique-se de fazer uma cópia antes de o aplicar.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos