使用宏重命名文件夾中的文件

Question

我想重命名文件夾中的文件。假設我在列A中有文件名，必須使用列B中的新值進行更改。請提出建議。另外，重命名時擴展名不應該改變。

我曾嘗試的代碼如下：

Sub rename 
    Dim Source As Range 
    Dim OldFile As String 
    Dim NewFile As String 
    Set Source = Cells(1, 1).CurrentRegion 
    For Row = 1 To Source.Rows.Count 
     OldFile = ActiveSheet.Cells(Row, 1) 
     NewFile = ActiveSheet.Cells(Row, 2) 
     ' rename files 
     Name OldFile As Newfile 
    Next 
end sub 

Answer 1

此修改您的代碼將從NewFile去掉所有擴展（設置延伸比長5個字符不再）：

Sub Rename() 
    Dim Source As Range 
    Dim OldFile As String 
    Dim NewFile As String 
    Dim Row As Long 
    Set Source = Cells(1, 1).CurrentRegion 
    For Row = 1 To Source.Rows.Count 
     OldFile = ActiveSheet.Cells(Row, 1) 
     NewFile = ActiveSheet.Cells(Row, 2) 
     'see if NewFile contains an extension 
     If InStr(Right(NewFile, 6), ".") > 0 Then 
      'if so, strip it off 
      NewFile = Left(NewFile, InStrRev(NewFile, ".") - 1) 
     End If 
     'append extension 
     NewFile = NewFile & Mid(OldFile, InStrRev(OldFile, ".")) 
     ' rename files 
     Name OldFile As NewFile 
    Next 
End Sub