|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
文件夹内有两个工作薄
我希望两个工作薄中如果打开任一工作薄,则另一个工作薄也同时打开;如果关闭任一工作薄,则另一个工作薄也关闭
现在代码可以实现,只是关闭后仍然存在excel界面,代码如下,求帮助!谢谢!!
Private Sub Workbook_Open()
Dim wb As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each wb In Workbooks
If wb.Name = "book2" Then Exit Sub
Next wb
Workbooks.Open Filename:=ThisWorkbook.Path & "\book2.xlsm"
Windows("book1").Activate
Application.Goto Sheets("Sheet1").Range("a4"), True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks("book2.xlsm").Close False
End Sub
|
|