关闭工作簿(如果已打开)

本文介绍了关闭工作簿(如果已打开)的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我想要一个错误处理程序来处理关闭未打开的Excel工作簿.

I would like an error handler to handle closing an Excel workbook that is not open.

我尝试了以下代码.

If Workbooks("Combo.xlsx").IsOpen Then
     Workbooks("Combo.xlsx").Close SaveChanges:=False
Else: Resume Next
MsgBox "Error: (" & Err.Number & ") " & Err.Description, vbCritical
End If

这给我一条错误消息:

推荐答案

您真正需要的只是

On Error Resume Next
Workbooks("Combo.xlsx").Close SaveChanges:=False
On Error Goto 0

如果没有打开具有该名称的工作簿，则可以忽略该错误.

You can ignore the error if there is no workbook open with that name.

这篇关于关闭工作簿(如果已打开)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！