Excel VBA系列之选择文件对话框GetOpenFilename方法

在Excel使用过程中，可以通过程序的“文件 > 打开”选择文件夹下的已知Excel文件。

在VBA中，通过GetOpenFilename方法可以设计一个与此类似的功能。

1. 点击“开发工具”选项卡，打开Visual Basic，添加一个模块和过程“test”。

2. 在过程中添加GetOpenFilename方法（通过Application来找到此方法）。

3. 执行以上代码后，在Excel中会弹出一个选择文件的对话框。

4. GetOpenFilename方法可返回所选择文件的路径：执行方法后，选择上图中的Excel文件，在A1单元格中返回文件所在的路径。

5. 通过GetOpenFilename所获取的路径来打开所需文件。

6. 执行以上代码后，即可选择文件；但如果文件夹中有除Excel文件的其他类型文件，选择非Excel类型文件会使程序报错。

7. 在选择文件的类型中，默认是“所有文件”，而实际上在GetOpenFilename方法中可以通过设置参数来限定可选文件的类型。

Sub test()

Dim str As String

Dim wb As Workbook

str = Application.GetOpenFilename

Set wb = Workbooks.Open(str)

End Sub

关于GetOpenFilename方法的参数设置，我们会在下一次的分享中继续展开。

欢迎大家多多关注，感谢支持！