[已解决]VBA如何批量修改文件名，把第一改成第1等等

zss7758258

之前看到一个老师能写出VBA获取指定目录下的文件名(包括文件夹名)的代码，
我想这个问题VBA也应该有办法吧，麻烦各位老师了！问题如下：

在一个文件夹下如何批量修改文件名，把第一改成第1，第二改成第2，第三改成第3。。。。。把第十三（或者第一十三）改成第13，第二十五改成第25，第三百一十六改成第316。。。。。
批量修改文件名 第一改成第1.zip (1.64 KB, 下载次数: 10)

2015-1-15 12:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-15 13:02

1. Sub Macro1()
   
2. Dim d, mypath$, wj$, i%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. mypath = ThisWorkbook.Path & ""
   
5. For i = 1 To 1000
   
6.     z = "第" & Application.Text(i, "[dbnum1]")
   
7.     d(z) = "第" & i
   
8. Next
   
9. For i = 10 To 19
   
10.     z = "第" & Mid(Application.Text(i, "[dbnum1]"), 2)
    
11.     d(z) = "第" & i
    
12. Next
    
13. wj = Dir(mypath & "*.txt")
    
14. Do While wj <> ""
    
15.     x = Split(wj, "课")(0)
    
16.     zf = Replace(wj, x, d(x))
    
17.     Name mypath & wj As mypath & zf
    
18.     wj = Dir
    
19. Loop
    
20. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim d, mypath$, wj$, i%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. mypath = ThisWorkbook.Path & ""
   
5. For i = 1 To 1000
   
6.     z = "第" & Application.Text(i, "[dbnum1]")
   
7.     d(z) = "第" & i
   
8. Next
   
9. For i = 10 To 19
   
10.     z = "第" & Mid(Application.Text(i, "[dbnum1]"), 2)
    
11.     d(z) = "第" & i
    
12. Next
    
13. wj = Dir(mypath & "*.txt")
    
14. Do While wj <> ""
    
15.     x = Split(wj, "课")(0)
    
16.     zf = Replace(wj, x, d(x))
    
17.     Name mypath & wj As mypath & zf
    
18.     wj = Dir
    
19. Loop
    
20. End Sub

复制代码

dsmch

………………

zss7758258

dsmch 发表于 2015-1-15 13:02

老师化腐朽为神奇！