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

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