Code to move excel file from one folder to another folder

[rwilard]

Hello, I have been unable to find a code that allows me to move the current workbook from one folder into another so I thought of the idea of a save as that saves in the desired folder but also kills the file in the current folder. I have gotten the save to work but not the kill. The file is present in both folders, can someone help me?

path = "I:\AAA-PURCHASE ORDERS\test1"
path2 = "I:\AAA-PURCHASE ORDERS\test2"
filename1 = "PO#_" & Range("H4").Text & "_" & Range("C10").Text & "_" & Range("H7").Text & "_" & Range("F49").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=path2 & filename1 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
MsgBox "File Saved"
Application.DisplayAlerts = True



Kill path & filename1
Application.ActiveWorkbook.Close False

 

[Eric W]

I haven't tried this, but look at post # 3 in this thread:

https://www.mrexcel.com/forum/excel-questions/965244-how-delete-workbook-automatically-macro.html

Also, instead of a SaveAs/Kill combination, you may want to try

Name .FullName As path2 & .Name

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/name-statement

I haven't tried that in your particular situation either, but it may be safer.

 

[Yongle]

follow path with backslash before Filename
- seems missing generally in your code
c:\folder\subfolder\filename.xlsm

 

[rwilard]

I haven't tried this, but look at post # 3 in this thread:

https://www.mrexcel.com/forum/excel-questions/965244-how-delete-workbook-automatically-macro.html

Also, instead of a SaveAs/Kill combination, you may want to try

Name .FullName As path2 & .Name

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/name-statement

I haven't tried that in your particular situation either, but it may be safer.

I keep getting a compile error expected end of statement and then it highlights the As

 

[rwilard]

it didnt work unfortunately

 

[Yongle]

What didn't work?

 

[rwilard]

A file not found message would pop up

 

[Yongle]

What did not work?
Post the actual line of code

 

[jim may]

Does the Destination Folder Name Exist before running the code?

 

[rwilard]

yes