批量更改excel工作簿名称 如何在将excel中的名字批量重命名到word中？
如何在将excel中的名字批量重命名到word中？
文件的批量重命名可以通过VBA解决。
1.首先，创建三个新的word文件，并将它们放在一个文件夹中，只有需要更改名称的word文件。如下图所示:
2.在此文件夹的同一路径下，创建一个新的Excel文件来更改word文件的名称。
3.打开Excel文件，将word文件的名称与新名称一一对应。表格如下图所示:
所有文件名都没有后缀。docx。
4.打开VBE窗口，右键创建新模块，输入VBA代码。如下图所示:
图片码在上面，文字码在下面。主体可以将文本代码复制到VBE的模块中。
子fso()
Dim对象作为对象FSO对象
Dim对象文件夹作为对象
Dim对象文件作为目标文件
作为字符串路径的Dim sPath
创建FSO对象
设置objFSO CreateObject()
SPath amp新文件夹路径
设置对象文件夹(sPath)
错误的
申请。显示警报错误
设置sht工作簿(操作文件。xlsm)。纸张(纸张1)
遍历路径下的所有文件。
对于中的每个对象文件
带sht
对于i 2来说。单元格(，1)。结束(xlUp)。排
如果InStr(，。Cells(i，1)) gt 0然后
。电池(1，2)安培。docx重命名
为...退出
如果…就会结束
然后
以…结尾
下一个对象文件
真实的
申请。显示警报真
末端接头
5.添加一个按钮来运行VBA代码。
6.指定宏名，然后单击确定。
7.结果如下:
8.在点击按钮1之前，再次确认word文件的名称，如下图所示:
单击[按钮1]，word文件名将更改为:
8、再次更改新名称，测试:
单击运行代码:
具体操作请参考以下gif图:
以上是VBA操作文件的代码，仅供参考！
欢迎关注套路Exc
Excel中怎么批量修改sheet的名字？改成统一的格式如sheet1，2，3即可？
对I 1到sheets (I)使用VBA:子流()。名片夹I下一个I结束sub。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
