GetSaveAsFilename not working under Windows 7 OS

Trevor G

Well-known Member

Joined

Jul 17, 2008

Messages

6,846

Office Version

1. 365

Platform

1. Windows

• Oct 21, 2011

• #2

What about invoking the save as dialog dox, read this article as well to set arguments.

http://support.microsoft.com/kb/110670

Sub dia1()
Application.Dialogs(xlDialogSaveAs).Show


End Sub

Click to expand...

 

Last edited: Oct 21, 2011

Upvote 0

L33

Board Regular

Joined

Jul 2, 2008

Messages

108

• Oct 21, 2011

• #3

Hi Trevor,
I had that originally but wanted a way of suggesting to the user the best path and filename to save the file in, which this method won't do. Earlier in my code I create the required folder structure and then store that in the variable "myReportStore". The Save As dialog in my code is still taking me there, but I also want the suggested file name in the box too, ideally.

 

Upvote 0

Trevor G

Well-known Member

Joined

Jul 17, 2008

Messages

6,846

Office Version

1. 365

Platform

1. Windows

• Oct 21, 2011

• #4

Then what about a userform to do this?

You could default the path (folder) and also suggested file name in a textbox.

ALmost Mimicking the SaveAs<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

Upvote 0

Richard Schollar

MrExcel MVP

Joined

Apr 19, 2005

Messages

23,707

• Oct 21, 2011

• #5

Just use the Application.FileDialog(msoFileDialogSaveAs) object - that will work under W7.

 

Upvote 0

L33

Board Regular

Joined

Jul 2, 2008

Messages

108

• Oct 21, 2011

• #6

Excellent! Had a bit of trouble working out how to default as an ".xslm" in the dialog but got it working (FilterIndex=2 !). I wonder what it is about Windows 7 that makes my old method invalid...

Many thanks for your help, Richard.

 

Upvote 0

L33

Board Regular

Joined

Jul 2, 2008

Messages

108

• Oct 21, 2011

• #7

For benefit of future Googlers and messageboard searchers with same problem:

Original code:

Code:

FileSaveName = Application.GetSaveAsFilename(myReportStore & "\" & CorporateName & ".xlsm")
        
ActiveWorkbook.SaveAs FileSaveName

New code:

Code:

    Dim FileSaveName As FileDialog
    
    Set FileSaveName = Application.FileDialog(msoFileDialogSaveAs)
    
    FileSaveName.InitialFileName = myReportStore & "\" & CorporateName
    FileSaveName.FilterIndex = 2   'select to save with a ".xlsm" extension
    FileSaveName.Show
    FileSaveName.Execute

Thanks to Richard Schollar for the idea.

 

Upvote 0

N

naganathan

New Member

Joined

Feb 19, 2014

Messages

1

• Feb 19, 2014

• #8

Can someone convert the same code in Javascript. I am getting error in msoFileDialogSaveAs

 

Upvote 0

Jon von der Heyden

MrExcel MVP, Moderator

Joined

Apr 6, 2004

Messages

10,912

Office Version

1. 365

Platform

1. Windows

• Feb 19, 2014

• #9

I doubt you are going to get much luck here... Perhaps you should ask at a JavaScript forum...

 

Upvote 0