如何用vba实现文件批量重命名？

答案:3 悬赏:60 手机版

解决时间 2021-01-22 16:28

提问者网友：战魂
2021-01-22 10:56

1.07版的excel
2.所有文件在一个文件夹里，目标文件夹包含子文件夹
3.重命名规则：截取文件名前255个字符作为新文件名

以上。

最佳答案

五星知识达人网友：酒者煙囻
2021-01-22 12:08

亲，最后一句话没有明白：截取文件名前255个字符作为新文件名
截取哪个“文件名”的前255个字符呀？
而且，您确定需要255个字符作为文件名么？这是一件很恐怖的事情哦……

总之，可以用fso对文件夹中的所有文件进行遍历，并且还要递归搜索子文件夹；将所有的文件的完整路径和名称保存到一个大数组里。再根据您要求的条件，在数组内遍历每一个元素，更改对应的实际文件名。

全部回答

1楼网友：迟山
2021-01-22 14:54

截取文件名前255个字符作为新文件名，有那么长的文件名？能保证不重复？

2楼网友：笑迎怀羞
2021-01-22 13:45

sub macro1() dim i for i = 1 to sheets.count sheets(i).select sheets(i).name = cells(1, 1) next i end sub

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！