第8 章使用用户界面用户界面是用户使用VBA 处理数据时经常使用的对象。
在用户需要使用数据交互时，用户界面是一个非常有用的工具。
用户可以根据需要向用户窗体添加各种功能的控件，实现各种复杂的交互作用。
8.1 使用内置对话框在Excel 中，为了用户开发的便利，提供了多种固定功能的对话框。
用户在实际开发过程中，根据需要调用对应的内置对话框。
在本小节中，将结合具体的例子来说明如何使用内置对话框。
案例 153 使用“打开”对话框1．功能说明在程序中需要交互式地打开某个文件时，如果使用InputBox 函数让用户输入路径和文件名，容易出错并且不直观。
在这个时候，用户可以选择使用对话框。
2．语法说明在Excel VBA 中，使用Application 对象的GetOpenFilename 方法将打开标准的“打开” 对话框，让用户在计算机中选择盘符、路径、文件类型和文件名等信息。
其语法格式如下：表达式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)该方法的参数都可省略，各参数的含义如下：•FileFilter：一个指定文件筛选条件的字符串。
在FileFilter 参数中传递的字符串由文件筛选字符串对以及后跟的DOS 通配符文件筛选规范组成，中间以逗号分隔。
每个字符串都在“文件类型”下拉列表框中列出。
例如，下列字符串指定两个文件筛选——文本和加载宏：“文本文件(*.txt)、*.txt、加载宏文件(*.xla)、*.xla”。
如果省略FileFilter，则此参数默认为“所有文件(*.*),*.*”要为单个文件筛选类型使用多个通配符表达式，需用分号将通配符表达式分开。
例如： "Excel 文件(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm,"•FilterIndex：指定默认文件筛选条件的索引号，取值范围为1 到由FileFilter 所指定的筛选条件数目。
如果省略该参数，或者该参数的值大于可用筛选条件数，则使用第一337个文件筛选条件。
•Title：指定对话框的标题。
如果省略该参数，则标题为“打开”。
•ButtonText：在PC 中不可用。
•MultiSelect：如果为False（默认值），则只允许选择一个文件名。
如果为True，则允许选择多个文件名，返回值是一个包含所有选定文件名的数组，即使在“打开”对话框中只选定了一个文件名，也将返回到一个数组中。
注意：当用户在该对话框中单击“打开”按钮时将返回选择的路径和文件名，但并不真正执行打开操作。
3．案例说明在本例中，将在程序代码中使用内置的“打开”对话框，选择用户需要查看的文件。
然后将文件名显示在工作薄中。
4．编写代码使用“打开”对话框的程序代码如下：Sub OpenDiag()Dim sFilt As StringDim sTitle As StringDim sMsg As StringDim sFname As VariantDim i As IntegerDim sf As VariantsFilt = "文本文件(*.txt),*.txt," & _"所有文件(*.*),*.*"sTitle = "打开文件"sFname = Application.GetOpenFilename _(filefilter:=sFilt, Title:=sTitle, MultiSelect:=True)If Not IsArray(sFname) ThenMsgBox "请选择文件！"Elsei = 1ActiveSheet.Columns(1).ClearFor Each sf In sFnamesMsg = sMsg & sf & vbCrLfActiveSheet.Cells(i, 1) = sfi = i + 1NextEnd IfEnd Subf3385．运行结果运行程序代码，选择系统的文件类型，如图8.1 所示。
图8.1 选择系统文件类型选择多个文件，然后单击对话框中的“打开”按钮，如图8.2 所示。
图8.2 选择打开多个文件关闭对话框，查看Excel 文件中的保存信息，如图8.3 所示。
339图8.3 Excel 文件中的保存路径信息6．程序分析在上面的代码中，首先显示一个“打开”对话框，选中的文件名将返回到数组中，使用IsArray 函数检测返回值，如果不是数组则表示没有选择文件。
最后使用循环语句将数组中的文件名逐个取出来填充到工作表中。
案例 154 使用“保存”对话框1．功能说明和“打开”对话框类似，用户同样可以使用VBA 代码调用“保存”对话框，用来保存文件。
2．语法说明与GetOpenFilename 方法类似，使用Application 对象的GetSaveAsFilename 方法可打开标准的“另存为”对话框，在该对话框中用户可以选择（或输入）一个文件名。
其语法格式如下：表达式.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)该方法的参数与GetOpenFilename 方法类似，可参见上例中的介绍。
3．案例说明在本例中，将调用系统内置的“保存”对话框，选择保存文件，并显示保存文件的路径。
4．编写代码使用“保存”对话框的VBA 代码如下：Sub UserSaveAS()Dim sFilt As String340Dim sTitle As StringDim sMsg As StringDim sFname As VariantDim fileSaveName As StringsFilt = "Excel 文件(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm," & _"所有文件(*.*),*.*"sTitle = "保存文件"fileSaveName = Application.GetSaveAsFilename(filefilter:=sFilt, _FilterIndex:=2, Title:=sTitle)If fileSaveName <> "False" ThenMsgBox "文件保存路径是：" & fileSaveNameEnd IfEnd Sub5．运行结果运行程序代码，选择系统的文件类型，如图8.4 所示。
图8.4 保存文件6．程序分析本例的程序代码和前面小节类似，就不详细展开分析。
341案例 155 调用内置对话框1．功能说明前面案例介绍Excel 的内置对话框，都是通过Application 对象的方法形式来显示的。
在Excel 中还有更多的内置对话框，这些对话框组成了Dialogs 集合。
用户可以使用该集合调用内置对话框。
2．语法说明在Excel 2007 中，Dialogs 集合包括了多个内置对话框。
可使用以下代码查看内置对话框具体的数量：MsgBox Application.Dialogs.Count每个内置对话框由一个预定义的常量表示，要显示某个对话框，只需使用Dialogs 集合对象的Show 方法即可。
如使用以下代码，将显示Excel 的“打开”对话框。
Application.Dialogs(xlDialogOpen).Show3．案例说明本例的主要功能是在程序代码中调用内置的“打开”和“另存”对话框。
4．编写代码（1）调用“打开”对话框的VBA 代码如下：Sub UserOpenFiles()Application.Dialogs(xlDialogOpen).ShowEnd Sub（2）调用“另存”对话框的VBA 代码如下：Sub USerSaveFiles()Application.Dialogs(xlDialogSaveAs).Show "自定义文件.xlsm"End Sub5．运行结果运行第一段程序代码，调用“打开”对话框，如图8.5 所示。
342图8.5 “打开”对话框运行第二段代码，调用“另存为”对话框，如图8.6 所示。
图8.6 “另存为”对话框6．程序分析用户可以将本例的代码和前面案例中的代码进行比较，查看两种打开对话框方法的不同。
案例 156 调用功能区功能1．功能说明功能区是Excel 2007 新增的对象，用户可以通过VBA 代码调用功能区的功能。
3432．语法说明在Excel 2007 中，使用CommandBars 集合的ExecuteMso 方法可执行由idMso 参数标识的控件功能。
在Excel 2007 中，内置按钮等控件都具有idMso 参数，通过ExecuteMso 方法可调用这些控件的功能，该方法的语法格式如下：表达式.ExecuteMso(idMso)参数idMso 为控件的标识符。
3．案例说明本例的主要功能是在程序代码中调用内置的“打开”和“另存为”对话框。
4．编写代码（1）调用“打开”对话框的VBA 代码如下：（2）调用“另存为”对话框的VBA 代码如下：5．运行结果运行第一段程序代码，调用“打开”对话框，如图8.7 所示。
图8.7 调用“打开”对话框运行第二段代码，调用“另存为”对话框，如图8.8 所示。
Sub 另存文件()mandBars.ExecuteMso ("FileSaveAs") End SubSub 打开文件()mandBars.ExecuteMso ("FileOpen") End Sub344图8.8 “另存为”对话框6．程序分析用户可以在网址/office/tool/ribbon 中下载文件2007OfficeControlIDsExcel2007.EXE，该文件包括了Office 2007 各组件的控件列表。
将该文件解压后可以看到一个名为ExcelRibbonControls.xlsx 的文件，其中包含了Excel 2007 各控件的idMso。
8.2 创建自定义窗体在前面小节中，用户已经了解了如何调用和使用Excel 的内置对话框，在本小节中，将详细讲解如何创建自定义窗体。
在Excel VBA 中，用户可以根据实际开发的需要，创建自定义窗体。
案例 157 插入窗体1．功能说明插入窗体是用户创建自定义窗体的主要方法，在本小节中，将演示如何插入窗体。
