WORD中VBA奇数重命名、偶数重命名

yjwdjfqb · 发表于 2022-4-1 08:19

VBA从004这个文件名开始到007，依次正序奇数序号重新命名，新文件名后加上，新文本，三个字（即：1、3、5、7）
VBA从003这个文件名开始到008，依次倒序偶数序号重新命名，新文件名后加上，新文本，三个字（3-8共6个文件，即从12、10、8、6、4、2）
请老师们帮帮忙，谢谢老师们了！！！

WORD中VBA奇数重命名.rar (4.45 KB, 下载次数: 6)

WORD中VBA偶数重命名.rar (4.5 KB, 下载次数: 4)

yjwdjfqb · 发表于 2022-4-1 22:55

请高手老师们，帮帮忙，谢谢老师们了！

蓝桥玄霜 · 发表于 2022-4-2 09:47

新建工作簿，放在此文件夹外，抄入代码，执行即可。

yjwdjfqb · 发表于 2022-4-2 10:25

蓝桥玄霜发表于 2022-4-2 09:47
新建工作簿，放在此文件夹外，抄入代码，执行即可。

谢谢蓝桥老师的帮助，可以帮我这样改下不，感谢你了老师！
QQ截图20220402100948.jpg

蓝桥玄霜 · 发表于 2022-4-3 08:52

如果文件名格式都一样，可改为：

Sub lqxs()
Dim myPath$, nm$, aa, fm$, i%, n%, qs%
myPath = ThisWorkbook.Path & "\WORD中VBA奇数重命名"
nm = "4-7"
aa = Split(nm, "-")
For i = aa(0) To aa(1)
n = n + 1
qs = 2 * n - 1
ss = Format(i, "000") & ".txt"
fm = Dir(myPath & ss)
If fm <> "" Then
Name myPath & fm As myPath & "新文件" & qs & ".txt"
End If
Next
End Sub

复制代码

yjwdjfqb · 发表于 2022-4-3 09:23

蓝桥玄霜发表于 2022-4-3 08:52
如果文件名格式都一样，可改为：

非常感谢老师的帮助，我这儿没有测试成功
是不是，我哪个地方没有弄对
麻烦老师帮帮下，谢谢你了老师！

测试.rar (8.43 KB, 下载次数: 3)

zhanglei1371 · 发表于 2022-4-3 17:24

yjwdjfqb 发表于 2022-4-3 09:23
非常感谢老师的帮助，我这儿没有测试成功
是不是，我哪个地方没有弄对
麻烦老师帮帮下，谢谢你了老师！ ...

没有测试成功是因为你基础有待提高，连单步调试都不会。路径里缺少了\，导致找不到文件，自然无法成功。有视频有真相：
【vba利用Name方法重命名文件-哔哩哔哩】 https://b23.tv/44sff5f

yjwdjfqb · 发表于 2022-4-4 08:57

蓝桥玄霜发表于 2022-4-3 08:52
如果文件名格式都一样，可改为：

谢谢老师，非常好用
一开始我自己没有弄对，7楼老师提醒了下，现在可以了
感谢你了老师！

yjwdjfqb · 发表于 2022-4-4 10:50

zhanglei1371 发表于 2022-4-3 17:24
没有测试成功是因为你基础有待提高，连单步调试都不会。路径里缺少了\，导致找不到文件，自然无法成功。 ...

老师你好，我这儿正序奇数重命名，可以了，谢谢你了老师

但，倒序偶数方式重命令，还没有弄好，麻烦老师帮我看下，谢谢你了老师！

倒序偶数.rar (174.93 KB, 下载次数: 3)
附件中，代码执行后，需要达到的效果，如下，谢谢你了老师！
Word中VBA倒序偶数重更名图片－说明.jpg

		自动登录	找回密码
密码			免费注册

[求助] WORD中VBA奇数重命名、偶数重命名

评分

评分