用excel VBA打开和关闭多个工作簿，对应的代码如下：
1、打开指定工作簿
dim wb as workbook
set wb = ” 文件路径及文件名”
workbooks.open filename:= wb
2、关闭所有工作簿并保存
workbooks.close
3、打开多个工作薄的程序代码：
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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
