excel - 使用VBA代码根据excel列表列更改文件夹名称

Question

我的文件夹显示如下 Folder image
我在单元格 B1 中有这些文件夹的路径以及我需要更改列 A 中的文件夹的名称。我没有太多的 VBA 经验，也无法获得如何将文件夹名称更改为我拥有的列表中的列表A栏。
注意:我只在图像中显示了四个任务，但我有超过 50 个用于多个文件夹，并且我在 excel 表中具有文件的名称，这就是为什么我需要它来自动化。
我什至不在乎是否至少可以将括号替换为我在 Excel 工作表的 A 列上的名称。
谢谢你的帮助!!

Answer 1

请看一下这个解决方案:

Sub RenameFolders()
    
    Dim lastRow As Integer
    lastRow = WorksheetFunction.CountA(Range("A:A"))
    
    Dim newFolderName As String
    Dim oldFolderName As String
    
    Dim newFolderRange As Range
    
    For Each newFolderRange In Range("A1:A" & lastRow)
        oldFolderName = newFolderRange.Offset(0, 1).Value
        newFolderName = GetParentPath(oldFolderName) & newFolderRange.Value
        Name oldFolderName As newFolderName
    Next newFolderRange

End Sub

Function GetParentPath(ByVal path As String)
    
    path = StrReverse(path)
    GetParentPath = StrReverse(Mid(path, InStr(1, path, "\")))

End Function