代码之家 › 专栏 › 技术社区 › ChingLu Tay

自动关闭工作簿

excel-vba excel

0

ChingLu Tay · 技术社区 · 6 年前

当工作簿A打开时,工作簿B将自动打开。自动打开工作簿宏工作正常。但当我要关闭工作簿A时,工作簿B应自动关闭在一起。但是下面的自动关闭宏似乎不起作用。请告知哪里出错了:

Private Sub Workbook_Close()
If Workbooks.Close("A.xlxm") Then
ThisWorkbook.Close
End If
End Sub

上面的代码粘贴在工作簿B的ThisWorkbook中。

1 回复 | 直到 6 年前

1

0

QHarr 6 年前

在工作簿A中 ThisWorkbook 代码窗格。

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.Workbooks.Item("B.xlsm").Close True
    On Error GoTo 0
End Sub