在ExcelVBA中使用GetOpenFilename方法,弹出选择文件对话框。
工具/原料
ThinkPad
Windows10
2019Excel
笔记本电脑
方法/步骤
1、点击“开发工具”选项卡,打开VisualBasic,添加一个模块和过程“test”。
2、在过程中添加GetOpenFilename方法(通过Application来找到此方法)。
3、执行以上代码后,在Excel中会弹出一个选择文件的对话框。
4、GetOpenFilename方法可返回所选择文竭惮蚕斗件的路径:执行方法后,选择上图中的Excel文件,在A1单元格中返回文件所在的路径。
5、通过GetOpenFilename所获取的路径来打开所需文件。
6、执行以上代码后,即可选择文件;但如果文件夹中有除Excel文件的其他类型文件,选探怙鲔译择非Excel类型文件会使程序报错。
7、在选择文件的类型中,默认是“所有文件”,而实际上在GetOpenFilename方瓠鲶陋啼法中可以通过设置参数来限定可选文件的类型。