怎样使用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、选择多个文件并单击“打开”按钮后，程序将陆续报告所选文件名，如图