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

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

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

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

4、在模块当中输入如下代码，然后运行

Sub Excel文件打开对话框()

    Dim filename, i As Byte
    filename=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 If
End Sub

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