VBA Files Save As - Syntax

[GDunn]

Hi,

I am having some trouble with a Save As code.
Trying to provide a specific location, with the actual file name being taken from a cell in the file.

ActiveWorkbook.SaveAs Filename:="C:\xxxxx\xxxxxxxx\xxxxxxxxxxx\xxxx\" & Range("D16").Value & ".xlsm"

Can you please help with my syntax, as when I run this it errors on the file location.

Thanks,

 

[Richard Schollar]

Hi

I expect it errors because you aren't supplying the FileFormat argument:

ActiveWorkbook.SaveAs Filename:="C:\xxxxx\xxxxxxxx\xxxxxxxxxxx\xxxx\" & Range("D16").Value & ".xlsm", FileFormat:=52 'xlOpenXMLWorkbookMacroEnabled

Also, check that you don't have any invalid characters in the referenced range.

 

[JackDanIce]

I just tried to record some code to check your syntax and it appears to be correct. Code I got was:

ActiveWorkbook.SaveAs Filename:="E:\Maphisto.xls"

I then placed the file name into a cell, changed code to:

ActiveWorkbook.SaveAs Filename:="E:\" & Range("A1")

Then got distracted and pulled my removable drive out and the above didn't work, until I put the drive back in. To me your code looks virtually the same so I guess the error is in the actual path you've given in the code itself.

Or now having read Richard's reply, his reasons are probably more likely than mine!!

 

[GDunn]

Thanks for your help.

FileFormat wasn't needed. Had an underscore in file location....

Must need sleep.