Check to see if file exists...

[pjmatelli]

I need help with creating a macro that checks to see if a particular file name exists in the default directory and if it does open the file, if it doesn't exist run another macro....any help is greatly appreciated!

 

[Tazguy37]

How about using the Dir() function? Here's an example:

Sub testExists()
    fname = "parts list.xls"

    If Dir("C:/" & fname & " ") <> "" Then
        Call test1
    Else
        Call test2
    End If

End Sub

Sub test1()
    MsgBox "file exists"
End Sub

Sub test2()
    MsgBox "file does not exist"
End Sub

Hope that helps!

 

[pjmatelli]

Thanks Taz - gonna try it!

 

[pjmatelli]

Please help...don't know what's wrong with this code...

Sub SaveAsCell()
fname = Sheets("DDE").Range("C" & 1)
If Dir(fname) <> "" Then
Call OpenFile
Else
Call SaveFile
End If
End Sub

Sub OpenFile()
fname = Sheets("DDE").Range("C" & 1)
Workbooks.Open fname
End Sub

Sub SaveFile()
fname = Sheets("DDE").Range("C" & 1)
ActiveWorkbook.SaveAs fname
End Sub