关闭工作簿(如果已打开) [英] Close a Workbook if opened

问题描述

我想要一个错误处理程序来处理关闭未打开的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 

这给我一条错误消息:

运行时错误:9个下标超出范围.

Run time Error: 9 Subscript Out of Range.

推荐答案

您真正需要的只是

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.

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