如何实现关闭工作簿时将指定路径下xlsm文件一起打开

转角处的沉思

测试的时候可以将文件下载到桌面，附件内自己寻找的代码实现不了关闭工作簿时将指定路径下xlsm文件一起同时打开，需如何实现，谢谢。

LIUZHU

这个应该是写在事件里面，关闭事件触发，打开其他工作簿

转角处的沉思

LIUZHU 发表于 2023-7-10 18:16
这个应该是写在事件里面，关闭事件触发，打开其他工作簿

也写在thisworkbook里吗，也没有触发

转角处的沉思

转角处的沉思 发表于 2023-7-10 20:08
也写在thisworkbook里吗，也没有触发

里面有个代码写错了，更新了下，可以触发部分条件，不过只能打开第一个文件，原文件也没有关闭。

转角处的沉思

将部分代码更新为以下可以实现关闭时打开指定文件夹下文件，不过原文件没有关闭成功。
Sub TYDK()
On Error Resume Next
   For i = 2 To ActiveSheet.Range("A65535").End(xlUp).Row
   Workbooks.Open ThisWorkbook.Path & "\新建文件夹\" & Sheet1.Cells(i, "A") & ".xlsm"
   
   Next
End Sub

转角处的沉思

有没有更优的实现方式

沈默00

直接写模块里不行吗，先打开需要的文件，再关闭本表。。。。。我也是小白，楼主略过呀

512008404

试了几次直接用OPEN方法打开工作簿，当前工作簿无法正常关闭。换了种方法实现了这种效果.

转角处的沉思

512008404 发表于 2023-7-11 14:14
试了几次直接用OPEN方法打开工作簿，当前工作簿无法正常关闭。换了种方法实现了这种效果.

实测可行，完美解决，非常感谢。

转角处的沉思

512008404 发表于 2023-7-11 14:14
试了几次直接用OPEN方法打开工作簿，当前工作簿无法正常关闭。换了种方法实现了这种效果.

顺便请教下目前打开文件是通过读取指定文件名的，那能否通过通配符的方式通过判断文件类型打开指定类型的文件，如统一打开*.xlsm的文件呢。