如何使用VBA中GetOpenFilename的文件多选参数

工具/原料

• ThinkPad
• Windows 10
• 2019 Excel
• 笔记本电脑

方式/步骤

1. 1

   GetOpenFilename方式设置文件多选MultiSelect参数为TRUE。

   
2. 2

   选中多个文件后，返回的会是一个数组对象。

   
3. 3

   在界说时，我们需要界说其为数组，且将GetOpenFilename方式返回的值赋给arr。

   
4. 4

   我们可以将其返回到工作表的单位格中测试一下；此处用到的代码是Range("A1:B1") = arr。

   
5. 5

   执行以上代码后，我们选择此中两个文件，然后点击“打开”。

   
6. 6

   在A1和A2单位格里即可获得返回的文件路径。

   
7. 7

   在以上代码中所获得的arr数组，与一般环境下的数组有些分歧，一般来说arr(0)可以返回数组中的第一个值，而在此处arr(1)返回的才是选中的所有文件的第一个文件：Workbooks.Open arr(1)。

   
8. 8

   选择多个文件。

   
9. 9

   选择的第一个文件会被打开。

   
10. 10

    打开所有选择的文件的代码。

    
11. 11

    执行以上代码，选择多个文件，单击“打开”。

    
12. 12

    所选择的文件均已打开。

    END

注重事项

• 利用VBA中GetOpenFilename的文件多选参数。