Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 177|回复: 2

如何循环打开多个excel文件

[复制链接]
发表于 2023-1-21 16:46 | 显示全部楼层 |阅读模式
如何循环打开同一个目录下的多个excel文件,求助大神
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2023-1-22 12:51 | 显示全部楼层
本帖最后由 zjdh 于 2023-1-22 12:53 编辑

Sub test()   ‘操作多工作簿多工作表 DIR+OPEN 方法
    Application.DisplayAlerts = False
    Mypath = ThisWorkbook.Path
    Myfile = Dir(Mypath & "\*.xls*")
    Do Until Myfile = ""
        If Myfile <> ThisWorkbook.Name Then
            Set WK = Workbooks.Open(Mypath & "\" & Myfile)
            For Each SH In WK.Sheets   ‘多工作表操作
                ARR=SH.Range("A1").CurrentRegion
                '................

            Next
            WK.Close False
        End If
        Myfile = Dir
    Loop
    Application.DisplayAlerts = True
End Sub
回复

使用道具 举报

 楼主| 发表于 2023-1-22 15:00 | 显示全部楼层
zjdh 发表于 2023-1-22 12:51
Sub test()   ‘操作多工作簿多工作表 DIR+OPEN 方法
    Application.DisplayAlerts = False
    Mypath ...

新年快乐!
谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2023-2-7 16:35 , Processed in 0.516441 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表