Excel VBA教程：GetOpenFilename方法

显示标准的“打开”对话框，获取用户文件名，而不必真正打开任何文件。

expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

expression   必需。该表达式返回一个 Application对象。

FileFilter   Variant类型，可选。一个指定文件筛选条件的字符串。

本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两种文件筛选 —— 文本和加载宏：“文本文件 (*.txt)、*.txt、Add-In 文件 (*.xla)、*.xla”。

若要为单个文件筛选类型使用多个 MS-DOS 通配符表达式，需用分号将通配符表达式分开。例如：“Visual Basic 文件 (*.bas; *.txt)、*.bas; *.txt”。

如果省略本参数，则默认参数值为“所有文件 (*.*)、*.*”。

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

Title   Variant 类型，可选。指定对话框的标题。如果省略本参数，则使用“打开”作为标题。

ButtonText   Variant 类型，可选。仅用于 Macintosh。

MultiSelect   Variant 类型，可选。如果该值为 True，则允许选定多个文件名，如果该值为 False，则只允许选定单个文件名。默认值为 False。

说明

本方法返回的是选定的文件名或用户输入的文件名。返回的名称可能包含路径的说明。如果 MultiSelect 为为 True，则返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为 False。

本方法可能更改当前驱动器或文件夹。

VBA示例

本示例显示文本文件的“打开”对话框。如果用户选择了一个文件名，则在消息框中显示所选的文件名。

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If