Excel VBA重命名当前文件夹下的文件

你可以使用以下代码来重命名当前文件夹下的文件：

Sub RenameFiles()
Dim MyPath As String
Dim MyFile As String
Dim NewName As String
MyPath = ActiveWorkbook.Path & "\"
MyFile = Dir(MyPath & "*.*")
Do While MyFile <> ""
NewName = Replace(MyFile, "OldName", "NewName")
Name MyPath & MyFile As MyPath & NewName
MyFile = Dir
Loop
End Sub

这个代码将会把当前文件夹下所有文件名中包含"OldName"的部分替换成"NewName"。你可以根据自己的需要修改这个代码。

相关问题

vba 遍历文件夹下的文件、移动并对应excel中的名称重命名

以下是使用 VBA 遍历文件夹下的文件、移动并对应 Excel 中的名称重命名的示例代码：

Sub RenameFiles()
    Dim folderPath As String
    Dim fileExtension As String
    Dim oldName As String
    Dim newName As String
    Dim i As Long
    
    folderPath = "C:\Folder\" '要遍历的文件夹路径
    fileExtension = ".xlsx" '要重命名的文件扩展名
    i = 1
    
    '遍历文件夹中的所有文件
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
    oldName = Dir(folderPath & "*" & fileExtension)
    Do While oldName <> ""
        newName = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value & fileExtension '在 Sheet1 中获取新的文件名称
        Name folderPath & oldName As folderPath & newName '重命名文件
        oldName = Dir()
        i = i + 1
    Loop
End Sub

这段代码会遍历指定的文件夹，找到所有指定扩展名的文件，并根据 Excel 中的名称进行重命名。需要将 Excel 中需要重命名的文件名列表放在 Sheet1 的第一列中。

怎样使用excel的vba对文件进行批量改名

你可以使用以下VBA代码将文件批量重命名：

Sub RenameFiles()
Dim FSO As Object
Dim SourceFolder As Object
Dim FileItem As Object
Dim sFile As String
Dim NewName As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder("C:\YourFolderPath") '将路径更改为您的文件夹路径

For Each FileItem In SourceFolder.Files
sFile = FileItem.Name
NewName = Left(sFile, InStr(sFile, ".") - 1) & "_NewName.xlsx" '将“_NewName”更改为您想要的新名称
Name FileItem As SourceFolder.Path & "\" & NewName
Next FileItem

End Sub

请注意，在运行代码之前，请先备份您的文件夹，以免出现意外情况。