Como verificar se existe um arquivo em uma pasta específica?
Suponha que você tenha uma pasta que contém vários arquivos e, agora, deseja identificar se um arquivo específico existe nesta pasta do Excel. Neste artigo, vou apresentar um método rápido para você verificar se existe um arquivo em uma pasta específica em detalhes através do Excel.
Verifique se existe um arquivo em uma pasta específica com código VBA
Verifique se existe um arquivo em uma pasta específica com código VBA
Para verificar se um arquivo existe em uma pasta específica ou não na planilha do Excel, você pode aplicar o seguinte código VBA, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
Código VBA: Verifique se existe um arquivo em uma 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 exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
Observação: No código acima, você deve alterar o caminho e o nome do arquivo C: \ Users \ DT168 \ Desktop \ Test folder \ Book2.xlsx " à sua necessidade.
3. Depois de colar o código, pressione F5 chave para executar este código:
(1.) Se o arquivo existir, você obterá a seguinte captura de tela:
(2.) Se o arquivo não existir, você receberá o seguinte aviso:
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!
