【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 代码执行展示

相关推荐
ggaofeng4 分钟前
用 Python 实现一个简化但可运行的 单点登录(SSO)系统
开发语言·python
laomocoder12 分钟前
golang可观测-无侵入式agent技术原理
开发语言·后端·golang
web安全工具库14 分钟前
Linux ls 命令进阶:从隐藏文件到递归显示,成为文件浏览大师
linux·运维·服务器·c语言·开发语言
**之火20 分钟前
中止 Web 请求新方式 - AbortController API
开发语言·前端·javascript
人机与认知实验室30 分钟前
人机交互中的确定性交互与不确定性交互
人机交互·交互
技术猴小猴39 分钟前
如何使用Python实现UDP广播
开发语言·python·udp
峥嵘life1 小时前
Android16 adb投屏工具Scrcpy介绍
android·开发语言·python·学习·web安全·adb
jndingxin1 小时前
算法面试(6)------mAP 是什么?如何计算?P-R 曲线怎么看?
开发语言·算法
YH丶浩2 小时前
vue自定义数字滚动插件
开发语言·前端·javascript·vue
zhangfeng11332 小时前
基于STRING数据库构建模型基因的PPI网络 基于GeneMANIA构建Hub基因的功能相似网络
开发语言·生物信息