How to Display the Open and Save As Dialog Boxes (139723)

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: