Como verificar se existe um arquivo ou pasta no seu computador com o Excel VBA?

O tutorial de automação do Office de hoje está focado em aprender como verificar se um arquivo existe em um dos diretórios do seu computador.

Preparação

Se você é um pouco novo na codificação, certifique-se de que a guia de desenvolvimento do Microsoft Office Excel esteja habilitada e que você esteja familiarizado com alguns VBA básicos do Excel .

Verificando se existe um arquivo com Excel VBA

O código a seguir aproveita as caixas de entrada para capturar o caminho para o arquivo, bem como o próprio nome do arquivo do usuário.

Em seguida, ele aproveita o método Dir para verificar se o caminho do arquivo realmente existe.

Por fim, exibe uma caixa de mensagem para o usuário com o resultado da verificação.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Verifique se existe uma pasta

De maneira bastante semelhante, você pode verificar se existe uma pasta específica em seu sistema operacional. Também aqui aproveitamos o método Dir , mas com o parâmetro vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Usando o código

• Abra o Microsoft Excel e navegue até sua pasta de trabalho.
• Clique em Desenvolvedor e depois em Visual Basic.
• Copie e cole o código acima como uma sub-rotina em uma planilha específica do seu módulo VBA.
• Execute (F5) o código.
• Salve sua pasta de trabalho.

Possíveis extensões

O código da placa da caldeira acima pode ser estendido para os seguintes casos de uso:

• Crie uma pasta/arquivo se ainda não existir.
• Exclua um arquivo de pasta desde que estejam presentes no diretório de arquivos do seu sistema operacional.
• Procure arquivos/pastas usando um curinga.