Como verificar se o arquivo existe usando vba (com exemplo)

Você pode usar a função Dir no VBA para verificar se existe um arquivo específico em uma pasta específica.

Aqui está uma maneira comum de usar esta afirmação na prática:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Esta macro específica criará uma caixa de entrada onde o usuário pode inserir um caminho completo para um arquivo para verificar se ele existe.

Assim que o usuário inserir o caminho do arquivo, a macro produzirá uma caixa de mensagem indicando se o arquivo existe ou não.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: verifique se o arquivo existe usando VBA

Suponha que temos uma pasta localizada no seguinte local:

C:\Usuários\bob\Documentos\dados_atual

Esta pasta contém três arquivos CSV:

Digamos que queremos usar VBA para verificar se existe um arquivo chamado football_data.csv nesta pasta.

Podemos criar a seguinte macro para fazer isso:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Depois de executar esta macro, aparece uma caixa de entrada onde podemos inserir o caminho do arquivo:

Inseriremos o caminho completo do arquivo football_data.csv :

Assim que clicarmos em OK , aparecerá uma caixa de mensagem que nos informará se o arquivo existe na pasta que especificamos:

A caixa de mensagem nos informa que o arquivo existe.

Nota : Você pode encontrar a documentação completa da função Dir aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como criar pastas usando VBA
Como deletar pastas usando VBA
Como deletar arquivos usando VBA