如果需要使用“打开”、“打印”等Excel内置对话框已经具有的功能，可以使用代码直接调用这些内置的对话框，如下面的代码所示。
#001 Sub DialogOpen()
#002 Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.Path & "*.xls"
#003 End Sub
代码解析：
DialogOpen过程显示内置的“打开”对话框并选定示例所在的文件夹。
显示内置对话框语法如下：
Application.Dialogs(xlDialogConst).Show
Dialogs集合代表所有的内置对话框，每个Dialog对象代表一个内置对话框，不能新建内置对话框或向该集合中添加内置对话框。
参数xlDialogConst是内置对话框的内置常量，每个常量都以“xlDialog”开头，其后是对话框的名称，如“打开”对话框的常量为“xlDialogOpen”。常用内置对话框的内置常量如表格 77‑1所示。
|
常量 |
值 |
说明 |
|
xlDialogActiveCellFont |
476 |
单元格格式(字体） |
|
xlDialogBorder |
45 |
单元格格式(边框） |
|
xlDialogCellProtection |
46 |
单元格格式(保护） |
|
xlDialogDeleteFormat |
111 |
单元格格式(数字） |
|
xlDialogFormatNumber |
42 |
单元格格式(数字） |
|
xlDialogPatterns |
84 |
单元格格式(图案） |
|
xlDialogClear |
52 |
清除 |
|
xlDialogColumnWidth |
47 |
列宽 |
|
xlDialogRowHeight |
127 |
行高 |
|
xlDialogConditionalFormatting |
583 |
条件格式 |
|
xlDialogDefineName |
61 |
定义名称 |
|
xlDialogDefineStyle |
229 |
样式 |
|
xlDialogDisplay |
27 |
显示选项 |
|
xlDialogFont |
26 |
字体 |
|
xlDialogSetBackgroundPicture |
509 |
工作表背景 |
|
xlDialogInsert |
55 |
插入 |
|
xlDialogInsertHyperlink |
596 |
插入超链接 |
|
xlDialogInsertPicture |
342 |
插入图片 |
|
xlDialogNew |
119 |
新建工作簿 |
|
xlDialogOpen |
1 |
打开 |
|
xlDialogSaveAs |
5 |
另存为 |
|
xlDialogWorkbookCopy |
283 |
移动或复制工作表（建立副本） |
|
xlDialogWorkbookInsert |
354 |
插入工作表 |
|
xlDialogWorkbookMove |
282 |
移动或复制工作表 |
|
xlDialogWorkbookName |
386 |
重命名工作表 |
|
xlDialogWorkbookNew |
302 |
新建工作表 |
|
xlDialogWorkbookProtect |
417 |
保护工作簿 |
|
xlDialogPageSetup |
7 |
页面设置 |
|
xlDialogPrint |
8 |
打印内容 |
|
xlDialogPrinterSetup |
9 |
打印机设置 |
|
xlDialogPrintPreview |
222 |
打印预览 |
|
xlDialogSetPrintTitles |
23 |
设置打印标题 |
|
xlDialogRun |
17 |
宏 |
|
xlDialogTable |
41 |
模拟运算表 |
|
xlDialogSendMail |
189 |
发送邮件 |
表格 77‑1 内置对话框的内置常量
显示内置对话框使用Show方法，应用于Dialog对象的Show方法语法如下：
expression.Show(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
参数expression是必需的，返回Dialog对象之一。
参数arg1到参数arg30是可选的，仅应用于内置对话框，是命令的初始参数。若要查找要设置的参数，请在内置对话框参数列表中查找对应的对话框常量。
运行alogOpen过程，显示内置的“打开”对话框，并且直接选定示例所在的文件夹，如图 77‑1所示。
1-1 获取选定文件的文件名
如果只希望获取用户在显示的内置 “打开”对话框中选定文件的文件名，而不想真正打开该文件，那么可以使用GetOpenFilename方法，如下面的代码所示。
#001 Sub OpenFilename()
#002 Dim Filename As Variant
#003 Dim mymsg As Integer
#004 Dim i As Integer
#005 Filename = Application.GetOpenFilename(Title:="删除文件", MultiSelect:=True)
#006 If IsArray(Filename) Then
#007 mymsg = MsgBox("是否删除所选文件?", vbYesNo, "提示")
#008 If mymsg = vbYes Then
#009 For i = 1 To UBound(Filename)
#010 Kill Filename(i)
#011 Next
#012 End If
#013 End If
#014 End Sub
代码解析：
OpenFilename过程使用GetOpenFilename方法显示标准的内置“打开”对话框，获取用户选定文件的文件名后使用Kill语句删除。
GetOpenFilename方法显示标准的内置“打开”对话框，获取文件名，语法如下：
expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
参数expression是必需的，返回一个Application对象。
参数FileFilter是可选的，指定文件筛选条件的字符串。如果省略，则默认参数值为“所有文件(*.*)”。
参数FilterIndex是可选的，指定默认文件筛选条件的索引号，取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略，或者取值大于可用筛选数目，则采用第一个文件筛选条件。
参数Title是可选的，指定对话框的标题。如果省略，则使用“打开”作为标题。
参数ButtonText是可选的，仅用于Macintosh。
参数MultiSelect是可选的，如果该值为True，则允许选定多个文件名，如果该值为False，则只允许选定单个文件名。默认值为False。
第5行代码显示标准的“打开”对话框，将对话框的标题设置为“删除文件”，将MultiSelect参数设置为True，允许选定多个文件。
第6行代码，获得返回值。当用户选定文件后，返回的是选定的文件名或用户输入的文件名。因为MultiSelect参数已设置为True，所以返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为False。
第8行到第12行代码，经询问用户后使用Kill语句从磁盘中删除用户选定的文件。
运行OpenFilename过程，显示标准的内置“打开”对话框，删除用户选定的文件，如所图 77‑2示。
图 77‑2 获取用户选定文件的文件名
注意 VBA中数组下界默认从0开始，但使用GetOpenFilename方法选择多个文件时返回的包含选定文件名的数组下界是从1开始。