Excel VBA 的GetOpenFilename 方法

 一、GetOpenFilename 方法简介

GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。

二、基本用法

语法：

表达式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

表达式 ： 一个代表 Application 对象的变量。

说明：

Application.GetOpenFilename("文件类型筛选规则(就是说明)","优先显示第几个类型的文件","标题","是否允许选择多个文件名")

参数解析：

1. 1. FileFilter：一个指定文件筛选条件的字符串。

   2. FilterIndex：指定默认文件筛选条件的索引号，取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略该参数，或者该参数的值大于可用筛选条件数，则使用第一个文件筛选条件。

   3. Title：指定对话框的标题。如果省略该参数，则标题为“打开”。

   4. ButtonText：仅限 Macintosh。

   5. MultiSelect：如果为 True，则允许选择多个文件名。如果为 False，则只允许选择一个文件名。默认值为 False

注意：以上参数都是可选参数，数据类型均为Variant。

三、使用示例

打开时有会弹出这样的窗口：

 打开Excel文件VBA代码：

设置打开某类文件，参照下面规则：“文件类型说明文字，*文件类型”：

Sub OpenExcel()
    Dim strFileName As String
    strFileName = Application.GetOpenFilename("Excel 工作簿(*.xlsx),*.xlsx,Excel 启用宏的工作簿(*.xlsm),*.xlsm,Excel 97-2003 工作簿 (*.xls),*.xls",1)
    MsgBox strFileName
End Sub