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 的第一列中。