使用VBA中GetOpenFilename的文件多选参数。
工具/原料
ThinkPad
Windows10
2019Excel
笔记本电脑
方法/步骤
1、GetOpenFilename方法设置文件多选MultiSelect参数为TRUE。
2、选中多个文件后,返回的会是一个数组对象。
3、在定义时,我们需要定义其为数组,且将GetOpenFilename方法返回的值赋给arr。
4、我们逐吴哉姆可以将其返回到工作表的单元格中测试一下;此处用到的代码是Range("A1:B1")=arr。
5、执行以上代码后,我们选择其中两个文件,然后点击“打开”。
6、在A1和A2单元格里即可得到返回的文件路径。
7、在以上代码中所得到的arr数组,与一般情况下的数组有些不同,一般来说arr(0)可艮劁飨戽以返回数组中的第一个值,而在此处arr(1)返回的才是选中的所有文件的第一个文件:Work芟鲠阻缒books.Openarr(1)。
8、选择多个文件。
9、选择的第一个文件会被打开。
10、打开所有选择的文件的代码。
11、执行以上代码,选择多个文件,单击“打开”。
12、所选择的文件均已打开。