Este post foi originalmente publicado em https://officevbavsto.blogspot.com/2011/03/quickshot-verificando-se-um-arquivo.html.

O que acontece quando você tentar abrir um arquivo do Excel através de uma Macro e ele não existir? Erro! Vamos criar uma função que verifica se o arquivo existe.

Abaixo o código da função:

Function VerificaArquivoExiste(arquivo as String) as Boolean     
  
  Dim fso     
  Dim file As String     
  Set fso = CreateObject("Scripting.FileSystemObject")     

  If Not fso.FileExists(file) Then         
    MsgBox arquivo & " não localizado.", vbInformation, "Office, VBA e VSTO" 
    VerificaArquivoExiste = False     
  Else         
    MsgBox file & " arquivo localizado.", vbInformation, "Office, VBA e VSTO"
    VerificaArquivoExiste = True     
  End If
  
End Sub

Utilizando a função

Sub AbreArquivo()     
  If VerificaArquivoExiste("C:\minha_pasta_trabalho.xls") Then         
    Workbooks.Open "C:\minha_pasta_trabalho.xls"     
  End If 
End Sub

Créditos

Photo by Mika Baumeister on Unsplash