VBA中的对话框和自定义窗体

对话框和自定义窗体
在第四章，你学习了如何使用Excel内置的InputBox函数在VBA过程执行期间从用户处收
集单一数据。但是，万一你的程序在运行时需要多个数据怎么办呢？用户也许希望一次就提
供所有数据，或者从项目清单中作出所有合适的选择。如果你定程序必须收集数据的话，那
么你可以：
• 使用内置对话框集合
• 创建一个自定义窗体
本章将教你如何从VBA过程里显示内置的对话框，以及从零开始设计你自己的自定义窗体。

Excel对话框
在开始创建自己的窗体之前，你应该花上一些时间学习如何利用Excel内置的对话框，这些
内置对话框本来就是为我们准备的。我讲的不是手动选择适合的选项，而是从你自己的VBA
过程里调用这些对话框。
Excel有一个特殊的内置对话框集合，它们用开头为xlDialog的常量表示，例如
xlDialogClear，xlDialogFont，xlDialogDefineName和xlDialogOptionsView。这些内置对
话框是Excel对象，属于内置Dialos集合，每个dialog对象代表一个内置对话框。

表10-1 常用的内置对话框
对话框名称 常量
新建 xlDialogNew
打开 xlDialogOpen
另存为 xlDialogSaveAs
页面设置 xlDialogPageSetup
打印 xlDialogPrint
字体 xlDialogFont

按照下述格式使用Show方法来显示对话框：
Application.Dialogs(常量).Show
例如，下面的语句显示字体对话框：
Application.Dialogs(xlDialogFont).Show

如果你在对象浏览器里面选择Excel库后，再输入xlDialog搜索的话，那些代表Excel内置对
话框的常量清单就会显示在对象浏览器里面了（参见图10-1）

1. 打开一个新工作簿并且保存为Chap10.xls
2. 切换到VB编辑器窗口
3. 打开立即窗口
4. 输入下述语句并查看结果：
Application.Dialogs(xlDialogClear).Show
Application.Dialogs(xlDialogFont).Show
Application.Dialogs(xlDialogFontProperties).Show
Application.Dialogs(xlDialogDefineName).Show
Application.Dialogs(xlDialogOptionsView).Show
最后一句指令显示“选项”对话框的“视图”。显示内置对话框后，你可以选择合适的选项，
然后Excel就会将当前被选择的单元格，区域或者整个工作表设置相应的格式。
尽管你不能更改内置对话框的外观和行为，但是当你从你的VBA过程显示内置对话框的时候，
你可以决定它的初始设置。如果你不更改初始设置，那么VBA将显示对话框和其缺省设置。
假设你要显示清除对话框，并且所有按钮都被选择上。通常Excel显示对话框的时候，内容
选项按钮是被选择上的。在立即窗口里输入下列语句：
Application.DialogS(xlDialogClear).Show 1
你可以在Show方法后面加上一系列的参数，在清除对话框里，“全部”选项按钮出现在四个
选项按钮组的最开头。Excel通常将可用的选项进行编号，因此，“全部”=1，“格式”=2，
“内容”=3，以及“批注”=4。在线帮助可以搜索到内置对话框的参数列表（参见图10-3）

图10-1 前缀为“xlDialog”的常量识别Excel内置对话框
在立即窗口里输入下面的语句，可以显示字体对话框，并且当前选择为“Arial”字体和14
字号：
Application.Dialogs(xlDialogFont).Show "Arial", 14
如果只要明确字号的话，那么可以在第一个参数的位置放置一个逗号就行：
Application.Dialogs(xlDialogFont).Show , 8
下面的指令显示“定义名称”对话框，并且在工作簿中的“名称”文本框中输入“John”，
“引用位置”里引用到单元格A1：
Application.Dialogs(xlDialogDefineName).Show "John", "=$A$1"
如果你点击确定Show方法就返回True，点击取消则为False。

图10-2 以常量xlDialogOptionsView代表的“选项”对话框“视图”的可用设置
图10-3 Excel内置对话框参数列表
1.文件打开和另存为对话框
OfficeXP中一个新而功能强大的对象是FileDialog。该对象允许你从你的VBA过程里显示文
件打开和文件另存为对话框。因为FileDialog对象是Microsoft Office 10.0 Object Library
的一部分，所以它在所有的Office XP应用程序里都是可用的。在前期的Excel版本中，程序
员使用了两种特殊的方法来显示文件打开和文件另存对话框，这些方法（GetOpenFilename
和GetSaveAsFilename）将在本章后面解释。要在你的VBA过程里面使用新的FileDialog对象
来显示文件打开对话框的话，你可以输入下列语句：
Application.FileDialog(msoFileDialogOpen).Show
要显示文件另存对话框的话，则使用下面的语句：
Application.FileDialog(msoFileDialogSaveAs).Show
现在，我们在立即窗口里输入上面的语句来看看文件打开和文件另存对话框。
除了文件打开和文件另存为对话框之外，FileDialog对象也能够显示“浏览”对话框，列出
文件和文件夹（参见图10-4），或者文件夹（图10-5）：
‘ browse the list of files and folders 浏览文件和文件夹清单
Application.FileDialog(msoFileDialogFilePicker).Show

图10-4 文件采集对话框允许用户选择一个或多个文件，该对话框显示文件和文件夹列表，
并且标题显示为“浏览”

‘ browse the list of folders 浏览文件夹清单
Application.FileDialog(msoFileDialogFolderPicker).Show
图10-5 文件夹采集对话框允许用户选择一个路径，该对话框显示目录列表，并且标题显示
为“浏览”

文件对话框使用的常量列在下面的表格里，前缀“mso”表明这些常量都是Microsoft Office
对象模型里一部分。

msoFileDialog常量 值
msoFileDialogOpen 1
msoFileDialogSaveAs 2
msoFileDialogFilePicker 3
msoFileDialogFolderPicker 4

可以使用FileDialog的Filters属性来控制显示文件的类型。如果你打开文件打开对话框下
面的“文件类型”下拉列表框时，你将看到许多可选择的文件过滤器。那里有24种预先设置
好的文件过滤器，你也可以在该清单里添加你自己的过滤器。在立即窗口里输入下述语句，
我们就可以得到缺省的文件过滤器数目了：
set f = Application.FileDialog(msoFileDialogOpen).Filters
f.count
FileDialog对象的过滤器储存在FileDialogFilters集合里面。我们来创建一个简单的过程，
将缺省的文件过滤器返回到Excel工作表：
1. 在当前VBA工程里插入一个新模块，并且重命名为DialogBoxes
2. 在DialogBoxes代码窗口里输入下面显示的ListFilters过程：
Sub ListFilters()
Dim fdfs As FileDialogFilters
Dim filt As FileDialogFilter
Dim c As Integer

Set fdfs = Application.FileDialog(msoFileDialogOpen).Filters
Sheets(3).Cells(1, 1).Select
Selection.Formula = "List of Default Filters"

With fdfs
c = .Count
For Each filt In fdfs
Selection.Offset(1, 0).Formula = filt.Description & _
": " & filt.Extensions
Selection.Offset(1, 0).Select
Next
MsgBox c & " filters were written to Sheet3."
End With
End Sub
该过程声明了两个对象变量，变量fdfs返回对FileDialog对象里的FileDialogFilters集合
的引用，而对象变量filt则储存对对象FileDialogFilter的引用。FileDialogFilters集合
的Count属性返回文件过滤器的总数。之后，过程遍历过滤器集合，并且找到每个过滤器的
描述和扩展名。
使用FileDialogFilters集合的Add方法，你可以轻易地将你自己的过滤器添加到缺省的过滤
器中去。下面修改后代工程ListFilters2示范了如何将临时文件（*.tmp）过滤器添加到过
滤器清单中去。该过程里的最后语句将打开文件打开对话框，因此你自己可以检查自定义的
过滤器是否已经被添加到了文件类型下拉列表框里。
Sub ListFilters2()
Dim fdfs As FileDialogFilters
Dim filt As FileDialogFilter
Dim c As Integer

Set fdfs = Application.FileDialog(msoFileDialogOpen).Filters
Sheets(3).Cells(1, 1).Select
Selection.Formula = "List of Default Filters"

With fdfs
c = .Count
For Each filt In fdfs
Selection.Offset(1, 0).Formula = filt.Description & _
": " & filt.Extensions
Selection.Offset(1, 0).Select
Next

MsgBox c & " filters were written to Sheet3."
.Add "Temporary Files", "*.tmp", 1
c = .Count
MsgBox "There are now " & c & " filters." & vbCrLf _
& "Check for yourself."
Application.FileDialog(msoFileDialogOpen).Show
End With
End Sub
你可以使用FileDialogFilters集合的Clear方法清除所有预设的过滤器。修改一下上面的过
程，在添加自定义的临时文件（*.tmp）过滤器之前，清除内置的过滤器。
当你从文件打开对话框里选择一个文件时，该被选择的文件名称和路径就会被放置在
FileDialogSelectedItems集合里。使用SelectedItems属性可以返回
FileDialogSelectedItems集合。通过设定FileDialog对象的AllowMultiSelect属性为True，
用户就可以同时按下Shift键或者Ctrl键和文件名称，选择一个或多个文件。
接下来的过程示范了如何使用上面提及的属性，该过程打开一个新的工作簿并且插入一个列
表框控件。允许用户选择一个以上的文件，然后被选择的文件将加入到该列表框控件里，并
且加亮第一个文件名。
Sub ListSelectedFiles()
Dim fd As FileDialog
Dim myFile As Variant
Dim lbox As Object