SaveAs to a network folder

[fringehead21]

I have a macro the I use to sign and date an Excel form in Excel 2010. I would like to add functionality to the macro that will open the SaveAs dialog box with a perticular folder location on the network already selected so all I have to do is enter the file name I want it to be and click the save button.

Thank you in advance for any help given.

 

[Scott Huish]

Hi welcome to the board!!

x = Application.GetSaveAsFilename("[URL="file://servername/path/"]\\servername\path\[/URL]")

 

[fringehead21]

Thank you, it works great.

 

[fringehead21]

Well I spoke to soon. The SaveAs does open, but I can't save the file. I beleive that its due to the file type selection being "All Files" with no other choices.
How can I fix this issue.

 

[Scott Huish]

Just add the rest of the parameters you need:

x = Application.GetSaveAsFilename("[URL="file://\\server\path\"]\\server\path\[/URL]", "Excel Files (*.xls;*.xlsx), *.xls;*.xlsx")
If x <> False then ActiveWorkbook.SaveAs x

 

[fringehead21]

Thank you, that works great.

Since I'm on the topic. For future referance, if I wanted to specify a specific file type would I change the text in red of the statment below to the prefered file type?

x = Application.GetSaveAsFilename("\\server\path\", "Excel Files (*.xls;*.xlsx), *.xls;*.xlsx")
If x <> False then ActiveWorkbook.SaveAs x

 

[Scott Huish]

Yes, and if necessary you may want to change the description from Excel Files to whatever you need.

 

[fringehead21]

Thank you, your help has been very usefull.