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

如题所述

推荐答案 2011-08-24

给你一个批量打开同一文件夹里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里面你做的每个操作步骤都会用代码记录，然后自己进去模块代码里面看看就知道了，我也是这么学的；
针对你的问题，你要给出具体每个文件要做什么的要求才行帮你

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/rDDrrn0Zj.html

其他回答

第1个回答 2011-08-24

将该宏设定为加载宏，就可以了。追问

已经加载了，现在希望文件夹里的159个Excel全部自己应用宏，自己改变。有没有这方面的办法。

追答

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

本回答被提问者采纳

相似回答

excel怎么能让同一个宏运用到每个文件中?答：理论上可以实现。但是，真到要所有Excel文件都用这功能，简直是灾难啊。你还是把代码粘到每一个需要的文件里吧。如果想某个文件中的所有工作表都有这个功能，代码应该粘贴到ThisWorkbook，且Private Sub那句应该是：Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)...

excel中怎么让一个宏在所有表格通用怎么让宏在所有工作表中运行答：把宏代码保存在“个人宏工作溥”中，即可打开Excel任何时候都可以使用其中的宏。注意：对于用宏做的自定义函数，可能要这样调用了：=PERSONAL.XLS!dayofweek(B1)其中的 PERSONAL.XLS 就是个人宏工作簿的文件名，这个文件是默认自动打开并隐藏的。

excel怎么让一个宏在所有表格都可以用答：第一步，点击Excel界面左下角的录制宏按钮录制宏。2.第二步，在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3.第三步，马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4.第四步，按Alt+F11打开VBE...

如何批量对同一个文件夹内几百个EXCEL文件都同时执行这个宏命令?答：Sub 批量清除工作表保护密码()Dim myPath$, myFile$, AK As Workbook, sh As Worksheet Application.ScreenUpdating = False myPath = ThisWorkbook.Path & "\"myFile = Dir(myPath & "*.xls")Do While myFile <> ""If myFile <> ThisWorkbook.Name Then Set AK = Workbooks.Open(myPath ...

大家正在搜

excel中怎样添加文件夹 excel宏读取文件夹名 excel批量建文件夹 excel生成文件夹目录 excel宏文件放在哪里 excel宏文件保存位置 csv文件怎么转成excel excel文件 excel合并多个文件