Recent Addins ADO Application Arrays Charts Commandbars Count Dates Dialogs Events File access Files & Folders Functions Games Help Import & Export Lookup Off topic Other Outlook PivotTables Power Query Printing Problem solving Read me Searching Sorting Sound Strings Sum Time VBA programming VBE Workbooks Worksheets

Determine if a workbook exists

 1999-12-20    Workbooks    0    448

The function below can be used to determine if a workbook or another file exists:

Function FileExists(FullFileName As String) As Boolean
' returns TRUE if the file exists
    FileExists = Len(Dir(FullFileName)) > 0
End Function
Example:

If Not FileExists("C:\FolderName\SubFolder\FileName.xls") Then 
    MsgBox "The file doesn't exist!"
Else
    Workbooks.Open "C:\FolderName\SubFolder\FileName.xls"
End If