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