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