批量修改文件夹的名字，根据excel中的对应关系

这段代码可以把e盘123目录下所有文件夹名称都改成原名称+1，根据你实际的需求自行修改即可
WBpath = "E:\123\"
Fname = Dir(WBpath, vbDirectory)
Fnum = 0
Do While Fname <> ""
If Fname <> "." And Fname <> ".." Then
If (GetAttr(WBpath & Fname) And vbDirectory) = vbDirectory Then
Oldname = WBpath & Fname
Newname = WBpath & Fname & "1"
Name Oldname As Newname
End If
End If
Fname = Dir
Loop