excel vba如何打开,关闭多个工作薄

办公教程导读

收集整理了【excel vba如何打开,关闭多个工作薄】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含472字，纯文字阅读大概需要1分钟。

办公教程内容图文

用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

办公教程总结

以上是为您收集整理的【excel vba如何打开,关闭多个工作薄】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel vba如何打开,关闭多个工作薄。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。