重命名文件夹中的文件名

xzhang94

文件夹里有将近60个文件，需要批量重命名，更新后的文件名称已经在excel里批量改好，用name命令批量重命名，代码如下。
执行的时候有两个问题，
1，执行后，只有很少一部分文件的名称改成了想要的。
2，第二次执行的时候，系统报错，提示文件未找到，但文件夹中的文件并没有增减。
求大神解答。
谢谢。




Sub renaming()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    Name "C:\Users\zxy0253\Desktop\test\" & Cells(i, 1) As "C:\Users\zxy0253\Desktop\test" & Cells(i, 2)
    i = i + 1
Next i

End Sub

shiruiqiang

已经for循环了，干嘛还要i=i+1，又不是do while 循环

高个子

1. Sub renaming()
   
2. Dim i As Integer
   
3. For i = 1 To ActiveSheet.UsedRange.Rows.Count
   
4.     Name "C:\Users\zxy0253\Desktop\test" & Cells(i, 1) As "C:\Users\zxy0253\Desktop\test" & Cells(i, 2)
   
5. Next
   
6. 
   
7. End Sub

复制代码

TuskAi

你的第二个问题，是不是因为你第一次运行时已经改的那一部分的文件名你没改回去，导致第二次运行时找不到同名文件？

3190496160

上传相应的文件，问题不难

fzxba

肉眼观察：
i=i+1  不要
第2个test后少了 \