save in directory

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am using the following code in the "before save" declaration in the
workbook code. It works great except for one problem. It doesn't save the
workbook in the directory I want it to. How do I get it to save in a certain
directory/folder?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Cancel = True
ThisWorkbook.SaveAs Worksheets("DEVIATION REPORT").Range("AM49").Value
Application.EnableEvents = True

End Sub
 
Specify the fully qualified path name:

e.g to save Worksheets("DEVIATION REPORT").Range("AM49").Value

to the default path

application.defaultfilepath & "\" & Worksheets("DEVIATION
REPORT").Range("AM49").Value

to save to "c:\xx"

"c:\xx" & "\" & Worksheets("DEVIATION REPORT").Range("AM49").Value

The path must exists or it will fail.
 
Include the path


ThisWorkbook.SaveAs "c:\test " & Worksheets("DEVIATION
REPORT").Range("AM49").Value
 
Back
Top