VBA代码关闭无效的工作簿

Question

I have tried below VBA code to close the inactive workbook but it is not working.

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

If you want to close all workbooks except the one the code is in,

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