Como verificar se um ficheiro existe numa pasta específica?
Se tiver uma pasta com vários ficheiros e precisar de verificar se um ficheiro específico existe, o Excel pode ajudá-lo a automatizar essa tarefa. Este artigo apresenta um método simples em VBA para confirmar a existência de um ficheiro numa pasta indicada.
Verifique se um ficheiro existe numa pasta específica com código VBA
Verifique se um ficheiro existe numa pasta específica com código VBA
Para verificar se um ficheiro existe numa pasta específica a partir da sua folha de cálculo do Excel, basta aplicar o seguinte código VBA. Siga estes passos:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do módulo.
Código VBA: Verificar se um ficheiro existe numa pasta específica:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exists", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End SubNota: No código acima, substitua o caminho e o nome do ficheiro C:\Users\DT168\Desktop\Test folder\Book2.xlsx pelo que corresponde às suas necessidades.
3. Após colar o código, prima a tecla F5 para executar este código:
(1.) Se o ficheiro existir, obterá a seguinte imagem:
(2.) Se o Arquivo não existe, receberá o seguinte aviso:
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