Saving a file within a Macro

[ireland13752]

Good Morning,

I am trying to save a file using the code within a Macro. I will need to do this several times within the macro and I would like to be able to have the Save As box open to the correct folder. I can get it to open the Save As dialog box, but not to the correct path. Can you please assist?

Here is the code that I have so far. I know it is incorrect, I just am not sure where?

Sheets(Array("Data")).Select
Sheets("Data").Activate
Filename = Application.GetOpenFilename(, , "\\phsfile\groups\QUALITY_INSTITUTE\1 DATA ANALYST & REPT\file1\file Reports 2014")

Thank you for your assistance.

 

[Marc L]

Good nite,

try ChDir statement just before …​

 

[ireland13752]

Thank you for your assistance, I apologize if I seem obtuse....

I get the dialog box, but it is still not taking me to the correct folder. Did I put this in the correct place?
ChDirFilename = Application.GetOpenFilename(, , "\\phsfile\groups\QUALITY_INSTITUTE\1 DATA ANALYST & REPT\file1\file Reports 2014")

 

[dan_l]

wouldn't you rather just tell it where to save the file rather than just going with the dialog box?

 

[ireland13752]

wouldn't you rather just tell it where to save the file rather than just going with the dialog box?

Hi dan_I, Thank you for responding, I apologize for the delay, I got pulled into another project.
Yes, that would be fantastic, except I have to be able to change the name of the file each time it is run,
It will be "file name MM-DD-YYYY"

 

[dan_l]

This part is easy.

Just set your save as string and your file path to be what you want. I've got a sample I can share laying around and I'll dig it up for you.

 

[ireland13752]

Hi Dan,
Not sure if you were able to find that code we discussed previously?