有没有办法让宏自动应用到文件夹所有excel中。拜谢高手指点赐教！

发布网友发布时间：2022-06-28 09:24

共2个回答

热心网友时间：2023-10-09 03:34

给你一个批量打开同一文件夹里EXCEL文件的框架，每个文件需要处理的代码放进去就可以了

Sub 批量打开()

MyPath = "D:\Excel Programe\ABCD\" '换为你自己保存EXCEL的文件夹
myfile = Dir(MyPath & "*.xls")
Do While myfile <> "" And ActiveWorkbook.Name <> myfile
Workbooks.Open Filename:=MyPath & myfile

每页要做的代码

ActiveWorkbook.Saved = True
ActiveWorkbook.Close '(SaveChanges)
myfile = Dir
Loop

End Sub追问不明白，高手有没有关于这方面的书籍。

追答书籍不了解，如果希望入门，建议使用宏的录制功能，开始录制后，EXCEL里面你做的每个操作步骤都会用代码记录，然后自己进去模块代码里面看看就知道了，我也是这么学的；
针对你的问题，你要给出具体每个文件要做什么的要求才行帮你

热心网友时间：2023-10-09 03:35

将该宏设定为加载宏，就可以了。追问已经加载了，现在希望文件夹里的159个Excel全部自己应用宏，自己改变。有没有这方面的办法。

追答书籍的化 John Walkenbach编写的《Excel.2003高级VBA编程宝典》，现在有2007版本的宝典了
其实学习EXCEL就推荐他的宝典系列，我看了《Excel.2003高级VBA编程宝典和《Excel.2003公式与函数应用宝典》简直就是经典教材