本文主要是介绍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 IfmyFile = Dir '找寻下一个*.xls，或者xlsx文件LoopSet WB = Nothing '释放变量内存
End Sub
这篇关于VBA小程序--打开文件夹内所有Excel表格（代码简单，针对xls + xlsx，注释清楚，小白亦可轻松看懂）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
