Bypassing Runtime Error 1004

**janjan_376** · 08-12-2009, 03:18 PM

ChDir "C:\dir1"
Workbooks.Open Filename:="C:\dir1\file1.xls"

.....

I need help on the above formula. I would like to add a condition such as IF file1.xls does not exist continue on the next line without getting the "Runtime Error 1004"

Thank you.

**shg** · 08-12-2009, 03:36 PM

Please edit your post to add code tags.

Thanks.

**janjan_376** · 08-14-2009, 12:28 PM

I have added the code tags please let me know if it worked. Thank you.

**shg** · 08-14-2009, 04:16 PM

Nope. The forum rules explain how ...

**janjan_376** · 08-17-2009, 03:02 PM

I added the right code. Please help on my runtime error

**shg** · 08-17-2009, 03:30 PM

Thanks.

Try this:

    Const sFile As String = "C:\dir1\file1.xls"
    
    If Len(Dir(sFile)) Then
        Workbooks.Open Filename:=sFile
    Else
        MsgBox "File """ & sFile & """ does not exist"
        Exit Sub
    End If