怎样使用VBA调用文件打开对话框

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Sub Excel文件打开对话框() Dim fi盟敢势袂lename, i As Byte fi造婷用痃lename=Application.GetOpenFilename("2003格式 (*.xls;*.xla), *.xls;xla ,2007格式 (*.xl??), *.xl??", 2, "打开Excel文件", MultiSelect:=True) If VBA.IsArray(filename) Then For i=LBound(filename) To UBound(filename) MsgBox filename(i) Next i End IfEnd Sub

5、选择多个文件并单击“打开”按钮后，程序将陆续报告所选文件名，如图