save

[GrayCoder]

Hi,

Found this code that will save my workbook:

Path = Application.ActiveWorkbook.Path

Application.ActiveWorkbook.SaveAs Filename:=Path & "\" & Name, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

It works but now I need to tweak it such that the file will save as a copy, then return to the original file to complete the code.

This SaveCopyAs command was found:

ActiveWorkbook.SaveCopyAs Filename:=Path & "\" & Name & ".xls"

However a run-time error appears saying it couldn't find the file (even though it hasn't been created yet). What do I need to modify? Thanks..

 

[rlv01]

It probably means that the variable Path does not contain a valid path.

'This SaveCopyAs command was found:
Dim msg As String
msg = "File Name: " & name & ".xls" & vbCr
msg = msg & "Folder name: " & path & vbCr
msg = msg & "Full path: " & path & "\" & name & ".xls"
MsgBox msg, , "Debug"

ActiveWorkbook.SaveCopyAs Filename:=path & "\" & name & ".xls"

 

[GrayCoder]

Thanks.. that helped.

 

[rlv01]