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