Excel 07 Xp/Win7 - Application.GetSaveAsFilename

[Seanzies]

In Windows XP PRO, Excel 2007 Pro

This line of code performs correctly:

SelectedFileName = Application.GetSaveAsFilename(ORDERS_FOLDER & fname, Title:="Save eWorkBook")


In Windows 7, Excel 2007

This same line of code does not populate the Dialog filename

SelectedFileName = Application.GetSaveAsFilename(ORDERS_FOLDER & fname, Title:="Save eWorkBook")

What do I need to change?
Also one curveball, is that this code needs to be able to work on Windows XP and Windows7.

 

[alan.m]

a suggestion, as when trying your code the addittion of the file extension seems to cause the problem for me (Win7, Office 2010):
try specifying the file type in the GetSaveAs by using
fileFilter:="Excel Files (*.xls), *.xls",
eg: SelectedFileName = Application.GetSaveAsFilename(ORDERS_FOLDER & fname, fileFilter:="Excel Files (*.xls), *.xls", Title:="Save eWorkBook")

You won't want to include the extension in your fname

Sorry, but I wasn't able to test in other environments.

HTH

 

[Ruddles]

In each of those environments, what is the value in SelectedFileName when you come out of the dialog box?