更改指定子文件夹名

tianyk · 发表于 2018-9-20 09:00

本帖最后由 tianyk 于 2018-9-20 11:35 编辑

求助:更改指定子文件夹名.在论坛搜到这段代码,不符合我的要求.请按附件要求帮改一下?谢谢!Sub 重命名文件夹v2() 'bajifeng
On Error Resume Next
ar = Range("b2:b" & [b65536].End(3).Row)
br = Range("c2:c" & [b65536].End(3).Row)
ipath = ThisWorkbook.Path & "\"
For i = 2 To [b65536].End(3).Row
Name ipath & "\" & ar(i, 1) As ipath & br(i, 1)
Next
End Sub

子文件夹改名.rar (32.33 KB, 下载次数: 4)

liulang0808 · 发表于 2018-9-20 09:15

楼主的需求没看太懂，之前提供过的链接都有相关修改文件夹名称的资料吧

xiangbaoan · 发表于 2018-9-20 10:06

………………

tianyk · 发表于 2018-9-20 11:33

xiangbaoan 发表于 2018-9-20 10:06
………………

谢谢 xiangbaoan 您的多次出手相助.完美达到要求.

tianyk · 发表于 2018-9-20 22:47

xiangbaoan 发表于 2018-9-20 10:06
………………

操作中发现一个问题,用日期数字命名了的子文件夹,移动工作表移不进去,是怎么回事?

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

[已解决] 更改指定子文件夹名

评分