Microsoft KB Archive/139723

= How to Display the Open and Save As Dialog Boxes =

Article ID: 139723

Article Last Modified on 6/11/2007

-

APPLIES TO


 * Microsoft Excel 97 Standard Edition
 * Microsoft Excel 95 Standard Edition
 * Microsoft Excel 5.0 Standard Edition
 * Microsoft Excel 98 for Macintosh

-



This article was previously published under Q139723





SUMMARY
When you use Microsoft Excel, you may want to display the Open or the Save As dialog boxes using Microsoft Visual Basic for Applications procedures. This article explains several ways to accomplish this task.

Note that the Open and Close methods do not display these dialog boxes.



MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

Method 1
This Visual Basic code uses the xlDialogOpen and xlDialogSaveAs constants to display the dialog.

To open a file: Application.Dialogs(xlDialogOpen).Show To open a file named "myacct.xls" in the "c:\personal" directory: Application.Dialogs(xlDialogOpen).Show _

("c:\personal\myacct.xls") To save a file: Application.Dialogs(xlDialogSaveAs).Show To save a file in the "c:\public" directory named "acct.xls": Application.Dialogs(xlDialogSaveAs).Show _

("c:\public\acct.xls")

Method 2
Use the GetOpenFilename and GetSaveAsFilename methods to retrieve the file name in conjunction with the Open or Close methods.

To open a file: Workbooks.Open filename:=Application.GetOpenFilename To save the active workbook: Activeworkbook.SaveAs filename:=Application.GetSaveAsFilename

Method 3
Use the Microsoft Excel 4.0 macro language equivalents to display the dialog boxes.

To open a file: Application.ExecuteExcel4Macro("OPEN?") To save a file: Application.ExecuteExcel4Macro("SAVE.AS?") For additional information, please see the following articles in the Microsoft Knowledge Base:

104581 Macro to Change Default *.XL* to *.* in Open Dialog Box

