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

最新推荐文章于 2025-09-13 10:26:29 发布

原创最新推荐文章于 2025-09-13 10:26:29 发布 · 5.7k 阅读

18 ·

CC 4.0 BY-SA版权

文章标签：

#vba #openoffice #excel

VBA 专栏收录该内容

62 篇文章

订阅专栏

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

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