遍历指定文件夹,逐个打开每一个excel文件,进行操作

本文介绍了一段VBA代码,用于批量打开指定路径下的所有Excel文件,并对每个文件执行宏2的操作。此代码适用于需要处理大量Excel文件的场景。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >


Sub openExcel()
    Dim myPath$, myFile$, WB As Workbook
    Dim icount%
    icount = 0
        Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
        
        myPath = "E:\" '把文件路径定义给变量
        myFile = Dir(myPath & "*.xls")                '依次找寻指定路径中的*.xls文件
        Do While myFile <> ""                         '当指定路径中有文件时进行循环
            Set WB = Workbooks.Open(myPath & myFile)  '打开符合要求的文件
            Call 宏2                                  '调出对文件进行相关操作的宏
            myFile = Dir                              '找寻下一个*.xls文件
            icount = icount + 1
        Loop

        Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
        MsgBox "一共打开" & icount & "个文件"
End Sub


评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值