如果需要使用“打开”、“打印”等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开始。