在日常办公中，我们经常需要通过Excel VBA处理外部文件数据。今天给大家分享一个超级实用的VBA函数——`
Application.GetOpenFilename`，它能优雅地实现文件选择功能，让你的VBA程序更加专业！

基础用法：最简单的文件选择

Dim filePath As Variant
filePath = Application.GetOpenFilename()
If filePath <> False Then
MsgBox "您选择的文件是：" & filePath
Else
MsgBox "您取消了选择"
End If

运行这段代码，会弹出标准Windows文件选择对话框，用户选择文件后会返回完整路径，取消则返回False。

进阶技巧：限定文件类型

Dim filePath As Variant
filePath = Application.GetOpenFilename("Excel文件 (*.xlsx), *.xlsx, 所有文件 (*.*), *.*", , "请选择Excel文件")

这样设置后：

1. 默认只显示.xlsx文件

2. 可以通过下拉菜单切换显示所有文件

3. 对话框标题显示为"请选择Excel文件"

多文件选择模式

Dim filePaths As Variant
filePaths = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(filePaths) Then
Dim i As Integer
For i = LBound(filePaths) To UBound(filePaths)
MsgBox "第" & i + 1 & "个文件：" & filePaths(i)
Next i
End If

设置`MultiSelect:=True`后，用户可以按住Ctrl键选择多个文件，返回的是一个文件路径数组。

实际应用案例：批量导入数据

Sub 批量导入Excel数据()
Dim filePaths As Variant
Dim wb As Workbook
Dim ws As Worksheet

filePaths = Application.GetOpenFilename("Excel文件 (*.xlsx), *.xlsx", MultiSelect:=True, Title:="请选择要导入的Excel文件")

If Not IsArray(filePaths) Then Exit Sub

Set ws = ThisWorkbook.Sheets.Add
ws.Name = "合并数据"

Dim i As Integer
For i = LBound(filePaths) To UBound(filePaths)
Set wb = Workbooks.Open(filePaths(i))
wb.Sheets(1).UsedRange.Copy ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1)
wb.Close False
Next i

MsgBox "成功导入" & UBound(filePaths) - LBound(filePaths) + 1 & "个文件的数据！"
End Sub

这个实用案例可以：

1. 让用户选择多个Excel文件

2. 自动创建新工作表

3. 将所有选择文件的第一张表数据合并到一起

使用技巧与注意事项

1. 返回值类型：GetOpenFilename只是返回文件路径，并不会真正打开文件

2. 文件筛选语法：描述和扩展名用逗号分隔，多组条件用逗号分隔

3. 默认路径设置：可以使用`ChDir`或`ChDrive`预先设置默认路径

4. 错误处理：建议添加错误处理代码，防止用户取消选择时程序报错

掌握这个函数后，你的VBA程序将拥有更友好的用户交互界面，让非技术人员也能轻松使用！赶紧收藏练习起来吧！

Excel技巧 VBA编程 办公自动化 效率提升 编程入门

如果觉得有用，别忘了 点赞 + 收藏，关注我，获取更多Excel VBA高效编程技巧!