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

512008404

转角处的沉思 发表于 2023-7-11 14:32
顺便请教下目前打开文件是通过读取指定文件名的，那能否通过通配符的方式通过判断文件类型打开指定类型的 ...

遍历文件名就可以实现你要的功能。比如：   
    Filename = Dir(ThisWorkbook.Path & "\新建文件夹\" & "*.xlsm")
    Do While Filename <> ""
        Debug.Print Filename
        excelApp.Workbooks.Open (ThisWorkbook.Path & "\新建文件夹\" & Filename)
        Filename = Dir()
    Loop

转角处的沉思

512008404 发表于 2023-7-11 15:02
遍历文件名就可以实现你要的功能。比如：   
    Filename = Dir(ThisWorkbook.Path & "\新建文件夹\"  ...

这样可以的。不过直接跑报错，借用@512008404的几行声明顺利打开了
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = True
    excelApp.WindowState = xlMaximized

补充内容 (2023-7-21 15:51):
Application.ScreenUpdating = False
    Dim i As Integer
    Dim t
    t = Timer

Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = True
    excelAp...

转角处的沉思

沈默00 发表于 2023-7-11 08:20
直接写模块里不行吗，先打开需要的文件，再关闭本表。。。。。我也是小白，楼主略过呀

一年时间小白变大神了

沈默00

转角处的沉思 发表于 2024-7-20 19:25
一年时间小白变大神了

呵呵，哪敢叫大神，，，还是小白级的，，那时刚刚学两个月，时间真快，，跟着各位老师学习总会有进步的