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

发布网友发布时间：2024-06-02 14:38

共1个回答

热心网友时间：2024-06-09 23:55

下面的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
Exit Sub
End If
‘打开所选工作簿
For i = 1 To UBound(SelectFiles)
Workbooks.Open SelectFiles(i)
Next i
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com