[已解决]批量修改文件夹中文件的文件名

zhangchenld

各位老师：我有一个文件夹中是.wav文件，想批量重命名，文件名字在另一个工作簿中，请问该怎样实现，已上传附件，感谢。

最佳答案

月排行榜 / 总排行榜

猴子下山了

2021-8-16 21:08

Sub test()
Dim fname, path
path = ThisWorkbook.path & "\录音\"
fname = Dir(path & "*.wav")
cnt = 1
Do While fname <> ""
     Name path & fname As path & Cells(cnt, 1) & ".wav"
     cnt = cnt + 1
    fname = Dir
Loop

End Sub

跳转到最佳答案楼层

猴子下山了

Sub test()
Dim fname, path
path = ThisWorkbook.path & "\录音\"
fname = Dir(path & "*.wav")
cnt = 1
Do While fname <> ""
     Name path & fname As path & Cells(cnt, 1) & ".wav"
     cnt = cnt + 1
    fname = Dir
Loop

End Sub

zhangchenld

猴子下山了 发表于 2021-8-16 21:08
Sub test()
Dim fname, path
path = ThisWorkbook.path & "\录音\"

非常感谢！