UC知道excel 中批量处理问题
来源：百度知道 编辑：UC知道 时间：2024/05/25 09:56:02
总共有86张相同格式的表格要做同样的修改，在用到 宏 时遇到问题
这86张excel表格的命名规则是这样的“1+企业名字（每个企业都不一样）”，比如1乐呵呵有限公司、2喜洋洋有限公司~~~
我通过以下这个循环可以实现命名规则是book1、book2~~book86的更改。
请高手帮忙设计一个循环， 1乐呵呵有限公司、2喜洋洋有限公司~~~86开心有限公司也能顺利使用的宏 感激不尽！
Dim iCol As Integer
For iCol = 1 To 86 '
Workbooks.Open Filename:="D:\excel\Book" & CStr(iCol) & ".xls" '关键，循环一次改变一次文件名
中间过程省略
Next iCol
End Sub
这86张excel表格的命名规则是这样的“1+企业名字（每个企业都不一样）”，比如1乐呵呵有限公司、2喜洋洋有限公司~~~
我通过以下这个循环可以实现命名规则是book1、book2~~book86的更改。
请高手帮忙设计一个循环， 1乐呵呵有限公司、2喜洋洋有限公司~~~86开心有限公司也能顺利使用的宏 感激不尽！
Dim iCol As Integer
For iCol = 1 To 86 '
Workbooks.Open Filename:="D:\excel\Book" & CStr(iCol) & ".xls" '关键，循环一次改变一次文件名
中间过程省略
Next iCol
End Sub
如果为了改名可以这样：
为输入输快点，打开电子表格-
第一列输入: ren 下拉86行
第二列输入：book1.xls book2.xls ...book86.xls(当然可以输入book1然后下拉填充，这列输入的是原文件名)
第三列输入：1乐呵呵有限公司.xls、2喜洋洋有限公司.xls....86开心有限公司.xls(这列输入需要的文件名）
打开记事本，复制电子表格内准备好的内容，粘贴至记事本，另存为aaa.bat到那86个表格所在文件夹。双击aaa.bat文件即可
另外推荐一个批量改名软件：Bulk Rename Utility
如果为了练习宏，那没研究
建议你把这些文件名存如某列，然后依次读取。