Populate "Save As..." Dialog box

[AndrewKent]

Hi there,

I have another question surrounding VB coding being used to initiate Dialog Boxes. I have managed to activate the "Save As..." dialog box however I would find it handy if I could populate the filename box with a pre-determined file name such as "Application (PLEASE ENTER YOUR NAME).xls"

Is this possible. I would normally have the program determining everything here but the user has to be able to define the save location manually.

Many thanks,

Andy

 

[Norie]

Andy

Don't use the dialogs, use Application.GetSaveAsFileName, as I suggested in your other thread.

 

[Andrew Poulsom]

Check out the GetSaveAsFileName method in VBA Help:

http://www.dailydoseofexcel.com/archives/2004/06/10/getsaveasfilename/

 

[AndrewKent]

Sorry if it sounded like I was ignoring your advice guys, I've just changed to using this method now and it works a bloody treat! Thanks again!

 

[AndrewKent]

Spoke too soon!

Heres the code I've written...

Sub ExportPrintout()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim Message, VersionName, SaveFile As String

VersionName = Sheets("FFData").Range("VersionName").Value

Config1 = vbOKOnly + vbInformation

Sheets("Printout").Select
Cells.Copy
Range("A1").Select
Workbooks.Open Filename:="\\fs01edx\grpareas\bbtapp\Protection\OSCA\Printout (Template).xls", ReadOnly:=True
Sheets("Printout").Select
Range("A1").Select
ActiveSheet.Paste
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("A1").Select

SaveFile = Application.GetSaveAsFilename(InitialFileName:="Fact Find (CustomerName).xls", FileFilter:="Excel Files (*.xls),*.xls", Title:="Please Save Your Fact Find")

ActiveWorkbook.Close
Workbooks("" & VersionName & "").Activate
Message = MsgBox("You have successfully saved the Fact Find.", Config1, "" & VersionName & "")

Sheets("FFIntro").Select
Range("A1").Select

End Sub


...and it runs fine but nothing seems to be saving to any file location I choose???

 

[AndrewKent]

Still no joy

 

[Jonmo1]

The GetSaveAsFilename Method does not initiate a Save Action. It only GETS the Name to use, and assigns it to a variable. THEN you need to have a Seperate SAVEAS command to save it (using the variable as the filename)...

SaveFile = Application.GetSaveAsFilename(InitialFileName:="Fact Find (CustomerName).xls", FileFilter:="Excel Files (*.xls),*.xls", Title:="Please Save Your Fact Find")
ActiveWorkbook.SaveAs SaveFile

 

[AndrewKent]

I shudder at the level of my own idiocy sometimes!!!!!!! Thanks NOW it works fine.

Many thanks,

Andy