GetOpenFilename的基本用法

GetOpenFilename

'一、概述基本语法

Application.GetOpenFilename 方法

显示标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件，只是把打开文件名称返回程序。

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

语法：

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

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

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

参数

名称	必选/可选	数据类型	说明
FileFilter	可选	Variant	一个指定文件筛选条件的字符串。
FilterIndex	可选	Variant	指定默认文件筛选条件的索引号，取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略该参数，或者该参数的值大于可用筛选条件数，则使用第一个文件筛选条件。
Title	可选	Variant	指定对话框的标题。如果省略该参数，则标题为“打开”。
ButtonText	可选	Variant	仅限 Macintosh。
MultiSelect	可选	Variant	如果为 True，则允许选择多个文件名。如果为 False，则只允许选择一个文件名。默认值为 False。

返回值
Variant

说明

如果点击了取消，返回false

'二、示例

'1、打开文件类型(word和excel)

在 FileFilter 参数中传递的该字符串由文件筛选字符串对以及后跟的 MS-DOS 通配符文件筛选规范组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选 - 文本和加载宏：“文本文件 (*.txt)、*.txt、加载宏文件 (*.xla)、*.xla”。

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

如果省略 FileFilter，则此参数默认为“所有文件 (*.*),*.*”。

Sub test1()

Dim fileToOpen

fileToOpen = Application.GetOpenFilename("文本文件 (*.txt)、*.txt、加载宏文件 (*.xla)、*.xla ")

MsgBox "Open " & fileToOpen

End Sub

注：如果点击了取消，返回false

2．打开多种文件类型,默认显示word文件

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

Sub test2()

Dim fileToOpen

fileToOpen = _

Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2, _

"打开您想查询的文件")

MsgBox fileToOpen

End Sub

3．选择多个文件,返回数组

Sub test3()
    Dim arr
    arr = _
        Application.GetOpenFilename("Excel2010文件,*.xlsx,Word文件,*.docx,文本文件,*.txt", _
        3, MultiSelect:=True)
    MsgBox arr(0)
End Sub

4．改变窗口默认路径

ChDrive 语句改变当前的驱动器。

ChDrive drive

必要的 drive 参数是一个字符串表达式，它指定一个存在的驱动器。如果使用零长度的字符串 ("")，则当前的驱动器将不会改变。如果 drive 参数中有多个字符，则 ChDrive 只会使用首字母。在 Macintosh 中， ChDrive 将当前文件夹改变到指定驱动器的根文件夹。

ChDir 语句改变当前的目录或文件夹。

ChDir path

必要的 path 参数是一个字符串表达式，它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器，则 ChDir 在当前的驱动器上改变缺省目录或文件夹。

ChDir 语句改变缺省目录位置，但不会改变缺省驱动器位置。例如，如果缺省的驱动器是 C，则下面的语句将会改变驱动器 D 上的缺省目录，但是 C 仍然是缺省的驱动器：

ChDir "D:\TMP"

在 Power Macintosh 中，默认驱动器总是改为在 path 语句中指定的驱动器。完整路径指定由卷标名开始，相对路径由冒号 (:) 开始. ChDir 可以辨认路径中指定的别名:

ChDir "MacDrive:Tmp" ' 在 Macintosh 中。

注意当改变相对路径时，在 Microsoft Windows 和 Macintosh 中使用不同符号:

ChDir ".." ' 在 Microsoft Windows 中，上移一层目录.

ChDir "::" ' 在 Macintosh 中，上移一层目录。

Sub test4()

Dim fileToOpen

ChDrive "E"

ChDir ThisWorkbook.Path

fileToOpen = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 1)

MsgBox fileToOpen

End Sub