求一个excel vba 代码程序：当打开一个excel工作表时同时关闭其它已打开的excel文件

Question

如题所述

Answer 1

下面的供参考。注意增加的宏需要放在VBA Workbook的里面。
Private Sub Workbook_Open()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name <> ThisWorkbook.Name Then
Wb.Close '如果要强行不保存关闭，可以加上 savechanges:=False
End If
Next
End Sub追问

谢谢，如果要关闭已打开的所有文件，怎样写？

追答

Private Sub Workbook_Open()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name ThisWorkbook.Name Then
Wb.Close '如果要强行不保存关闭，可以加上 savechanges:=False
End If
Next
ThisWorkbook.close
End Sub