【VBA 中GetOpenFilename】常用友好的人机交互文件全路径选择模式

程序运行过程中，获取某个或者多个文件目录全路径是常见的场景，VBA 提供了一种了方法在人机友好交互性方面作用显著。下面总结下 GetOpenFilename 方法的使用技巧。

方法调用

vbnet 复制代码

Sub display()

Rem 调用方法和显示效果
pathFiles = Application.GetOpenFilename(filefilter:="Excel 文件 (*.xl*),*.xl*", MultiSelect:=True)

End Sub

交互效果

函数原型和参数说明

函数原型

vbnet 复制代码

Application.GetOpenFilename( _
    [FileFilter], _
    [FilterIndex], _
    [Title], _
    [ButtonText], _
    [MultiSelect] _
)

参数说明

参数名称	说明
FileFilter（文件过滤器，可选）	作用：指定文件类型的筛选条件（例如 .xlsx）格式：描述文字 + 通配符，多个条件用英文逗号分隔。默认值："All Files ( .), ."（显示所有文件）。`示例："Excel文件 (.xlsx), .xlsx, 文本文件 (.txt), *.txt"`
FilterIndex（过滤器索引，可选）	作用：设置默认选中的文件类型（从1开始编号）。默认值：1（首个筛选条件）。`示例：2 ' 表示默认选中第二个文件类型（如文本文件 *.txt`）
Title（对话框标题，可选）	作用：自定义文件选择对话框的标题。默认值："打开"（英文环境下可能显示为 "Open"）。示例：`"请选择需要导入的文件"`
ButtonText（按钮文字，可选）	作用：仅在某些系统环境（如旧版 macOS）下有效，一般不使用。
MultiSelect（多选模式，可选）	作用：允许用户选择多个文件。取值：True/1：启用多选。False/0：禁止多选（默认）。

场景举例

1.1 MultiSelect 文件多选和单选的区别

vbnet 复制代码

Sub fileSingleSelect()

Rem MultiSelect:=False 文件单选
pathFiles = Application.GetOpenFilename(filefilter:="Excel 文件 (*.xl*),*.xl*", MultiSelect:=False)

End Sub

vbnet 复制代码

Sub filesMultiSelect()

Rem MultiSelect:=True 文件多选
pathFiles = Application.GetOpenFilename(filefilter:="Excel 文件 (*.xl*),*.xl*", MultiSelect:=True)

End Sub

1.2 多选和单选框体差异

2.1 注意事项

文件操作： GetOpenFilename 仅返回文件路径，不会自动打开文件。需要使用其他方法（如 Workbooks.Open）处理路径。
错误处理： 始终检查返回值是否为 False，避免用户取消操作导致错误。
数组处理： 多选模式下返回值是数组，建议通过 For Each 遍历。返回的数组的默认起始索引为1，如下图展示

2.2 代码举例场景

2.2.1 获取全文件路径中路径的方法

2.2.2 获取全文件路径中文件名称的方法

vbnet 复制代码

Sub quickGetFile()

Rem 通过调用VBA启用其本身的文件选择器实现，方便快捷
Dim fileName As String
Dim filePath As String

Rem 调用VBA应用自带的文件筛选框，并可以设置单选（点选）或者多选文件（ctrl + 选）
pathfiles = Application.GetOpenFilename(filefilter:="Excel 文件 (*.xl*),*.xl*", MultiSelect:=True)

If IsArray(pathfiles) Then  '对话框选择了至少一个文件对象

    Rem 获取文件并打印到立即窗口
    For Each pathFile In pathfiles
        
        Rem 获取字符串最后一个"\"的位置
        PathSeparator = InStrRev(pathFile, "\")
        Debug.Print PathSeparator
        
        Debug.Print (pathFile)
        
        Rem 获取全文件路径中路径的方法
        filePath = Left(pathFile, PathSeparator - 1)
        Debug.Print filePath
        
        Rem 获取全文件路径中文件名称的方法
        fileName = Right(pathFile, Len(pathFile) - PathSeparator)
        Debug.Print fileName
        
    Next pathFile
Else
    Debug.Print "您未选择任何文件对象"
End If

End Sub

2.2.3 代码执行展示