Macro to save file, but only if it doesn't already exist. Want it to NOT overwrite.

[courtmae]

Forgive me if this question has already been asked, but I can't find an answer anywhere. Seems to be plenty of info about how to save and overwrite a file that already exists, but I need the opposite.

Just a simple save as, and if there is no file, then I want to save it with xxx, but if the file already exists, I need the macro to skip it and go to the next command. When prompted during the macro, if I hit cancel to not overwrite, it goes into debug mode, which is no good.

Any help is greatly appreciated!!

 

[VBA Geek]

Sub SaveIF()
Const sFilePath As String = "H:\Desktop\ExpenseReport.xls" ' --- [path]
If Len(Dir$(sFilePath)) = 0 Then ThisWorkbook.SaveAs Filename:=sFilePath
End Sub

 

[courtmae]

It doesn't seem to work.
Here is what I have:



Sub SaveIF()
Sheets("Sheet13").Select
thisdate = Range("b1").Value

Workbooks.Add
Range("A1").Select
ActiveCell.FormulaR1C1 = "Account:"
Range("A16").Select
ActiveCell.FormulaR1C1 = "Thank you"

Const sFilePath As String = "" & thisdate & " info.xlsx"
If Len("S:\Operations\Info\(sFilePath)") = 0 Then ThisWorkbook.SaveAs Filename:=sFilePath
End Sub



I get a "Constant expression required" error. Even if I remove the variable date, the file doesn't save at all. Thanks again for any help!

 

[VBA Geek]

try

Dim sFilePath As String: sFilePath = "S:\Operations\Info\" & thisdate & " info.xlsx"
If Len(sFilePath) = 0 Then ThisWorkbook.SaveAs Filename:=sFilePath