利用VBA选择并打开多个工作簿文件

下面的VBA代码先用Application.GetOpenFilename方法显示“打开”文件对话框，然后打开所选择的一个或多个Excel工作簿文件。

Sub OpenWorkbooks()
On Error Resume Next
Dim SelectFiles As Variant
‘显示打开文件对话框
SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打开", , True)
‘未选择
If TypeName(SelectFiles) = "Boolean" Then

文章的内容来源于网络，由强国说学习-WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。

Exit Sub
End If
‘打开所选工作簿
For i = 1 To UBound(SelectFiles)
Workbooks.Open SelectFiles(i)
Next i
End Sub

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/41597.html