VBA小程序--打开文件夹内所有Excel表格(代码简单,针对xls + xlsx,注释清楚,小白亦可轻松看懂)

本文介绍了一段VBA代码,用于在指定文件夹中批量打开并关闭所有Excel文件,包括.xls和.xlsx格式。代码首先定义了文件路径,然后通过循环遍历指定路径下所有符合条件的文件,打开并立即关闭它们,但不保存任何更改。

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

 PS:使用下面的代码时,请先根据自己所需要处理的文件夹,进行更改mypath的路径

Sub VBA打开文件夹内所有Excel表格()
    Dim myPath$, myFile$, WB As Workbook    '这个$ 是相当于定义字符串
    myPath = "F:\" '把文件路径知定义给变量,这里请自行更改,记得最后要加一个反斜杠
    myFile = Dir(myPath & "*.xls*") '依次找寻指定路径中的*.xls,或者xlsx文件
    Do While myFile <> "" '当指定路径中有文件时进行循环
        If myFile <> ThisWorkbook.Name Then '如果我们这个宏文件在需要处理的文件夹之中,这个判断就会跳过下面的操作
            Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
            WB.Close 0  '不保存文件直接关闭
        End If
        myFile = Dir '找寻下一个*.xls,或者xlsx文件
    Loop
    Set WB = Nothing    '释放变量内存
End Sub

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值