vba dir遍历文件夹_vba快速打开一个文件夹下的所有.xls表然后保存代码是什么？

原问题：vba快速打开一个文件夹下的所有.xls表然后保存代码是什么？
分类：编程开发 > 最后更新时间：【2016-12-23 17:04:55】

最佳答案

sub aa()

dim wb as workbook

filename=dir(路径 &"\*.xls")

do while filename<>""

filename = 路径 & "\" & FileName

set wb=workbooks.open(filename)

‘然后这里是是修改wb工作簿的代码

wb.close true'保存并关闭wb

filename=dir

loop

end sub

未在VBA环境测试，纯手打，有错误自行修改或追问

最佳答案由网友 民兵连长9 提供

公告：为响应国家净网行动，部分内容已经删除，感谢网友理解。

其它网友回答：
Private Sub Worksheet_ Change（ByVal Target As Range）
ThisWorkbook.Save
End Sub

追问：
尝试了运行不了