打开另一工作簿的同时关闭此工作簿

laterite

打开另一工作簿的同时关闭此工作簿，原代码来自论坛。

点击按钮，会打开同文件夹中“主页”工作簿，而“主页”工作簿打开事件会弹出一个弹窗窗体

关闭该窗体后，本工作簿（明细）会自动关闭，保留“主页”工作簿

由于“主页”工作簿是经由“明细”工作簿调用打开，所以当所有过程未结束之前无法关闭“明细”工作簿。但因实际运行的需要，想在“主页”工作簿打开的同时就关闭“明细”工作簿，而非关闭“主页”工作簿弹窗窗体后才关闭“明细”工作簿。

请问有何良策？谢谢！

ykcbf1100

附件供参考。。。

我这里可以正常关闭。

ykcbf1100

参与一下。。。

1. Sub home()
   
2.     Set wb = ThisWorkbook
   
3.     Set wk = Workbooks.Open(ThisWorkbook.Path & "\主页.xlsm")
   
4.     wk.Sheets("cover").Activate
   
5.     wb.Close 0
   
6.     Set wb = Nothing
   
7.     Set wk = Nothing
   
8. End Sub
   

复制代码

laterite

ykcbf1100 发表于 2024-6-23 20:05
参与一下。。。

先谢谢草爷回复，只是问题依然存在，“明细”工作簿必须得“主页”工作簿的弹窗窗体关闭后才能关闭，我是想让“主页”工作簿打开之时就关闭“明细”工作簿


1、打开“明细”工作簿



2、点击按钮后



3、关闭弹窗后

ykcbf1100

工作簿已经关闭。

laterite

ykcbf1100 发表于 2024-6-23 20:50
工作簿已经关闭。

回草爷，其实我实际的代码是要在打开“主页”工作簿后，执行删除“明细”工作簿，但由于“明细”工作簿未能完全的退出，在删除时会报错

ykcbf1100

laterite 发表于 2024-6-23 21:03
回草爷，其实我实际的代码是要在打开“主页”工作簿后，执行删除“明细”工作簿，但由于“明细”工作簿未 ...

你继续求助吧。

laterite

ykcbf1100 发表于 2024-6-23 21:06
你继续求助吧。

感谢草爷

lss001

laterite 发表于 2024-6-23 21:10
感谢草爷

Sub home()
    Set wb = ThisWorkbook '指定原文件
    '取消"工作薄事件"，否则无法关闭原文件
    Application.EnableEvents = False
    Set wk = Workbooks.Open(ThisWorkbook.Path & "\主页.xlsm") '打开指定文件
    With wk.Sheets("cover")
        .Activate '激活指定表
    End With
    wb.Close '关闭原文件

End Sub

ykcbf1100

lss001 发表于 2024-6-24 09:26
Sub home()
    Set wb = ThisWorkbook '指定原文件
    '取消工作薄关闭事件，否则无法关闭原文件

你这个和楼主的代码一样啊。