[已解决]EXCEL中用VBA更改当前路径下文件名

yjwdjfqb

EXCEL中用VBA更改当前路径下文件名
当前路径下有二种文件格式，lrc和mp3，二种文件格式
如：
陈果 - 沉默是金.lrc
陈果 - 沉默是金.mp3
现在想批量改文件名如下：
沉默是金 - 陈果.lrc
沉默是金 - 陈果.mp3

请老师们帮我写个这样的代码，谢谢老师们了！

最佳答案

月排行榜 / 总排行榜

xdragon

2015-4-10 17:30

1. Sub RenameMusicFile()
   
2.     Dim pth$, fn$, extension$, newfilename$, tmp
   
3.     pth = ThisWorkbook.Path & ""
   
4.     fn = Dir(pth & "*.*")
   
5.     Do Until Len(fn) = 0
   
6.         extension = Mid(fn, InStrRev(fn, "."))
   
7.         Select Case extension
   
8.             Case ".lrc", ".mp3"
   
9.                 tmp = Split(Replace(fn, extension, ""), " - ")
   
10.                 If UBound(tmp) = 1 Then
    
11.                     newfilename = tmp(1) & " - " & tmp(0) & extension
    
12.                     Name pth & fn As pth & newfilename
    
13.                 End If
    
14.         End Select
    
15.         fn = Dir
    
16.     Loop
    
17. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub RenameMusicFile()
   
2.     Dim pth$, fn$, extension$, newfilename$, tmp
   
3.     pth = ThisWorkbook.Path & ""
   
4.     fn = Dir(pth & "*.*")
   
5.     Do Until Len(fn) = 0
   
6.         extension = Mid(fn, InStrRev(fn, "."))
   
7.         Select Case extension
   
8.             Case ".lrc", ".mp3"
   
9.                 tmp = Split(Replace(fn, extension, ""), " - ")
   
10.                 If UBound(tmp) = 1 Then
    
11.                     newfilename = tmp(1) & " - " & tmp(0) & extension
    
12.                     Name pth & fn As pth & newfilename
    
13.                 End If
    
14.         End Select
    
15.         fn = Dir
    
16.     Loop
    
17. End Sub

复制代码