用于关闭非活动工作簿的VBA代码

Question

我尝试过以下VBA代码来关闭非活动工作簿，但它无效。

Workbooks(VBA.Environ("Username") & ".xls").Close True
Workbooks(“p468904.xls").Close SaveChanges:=True
Workbooks.Close Filename:=VBA.Environ("Username") & ".xls"
Workbooks(VBA.Environ("Username") & ".xls").Close SaveChanges:=True

Answer 1

如果要关闭除代码所在工作簿之外的所有工作簿，

  For Each wkb In Workbooks
    If Not wkb Is ThisWorkbook Then wkb.Close SaveChanges:=False ' or True, depending
  Next wkb