VBA重命名文件夹代码

我一直在编写一个代码来重命名父文件夹中的数千个文件夹。到目前为止，我还不完全确定应该把什么放在哪里，或者使用什么代码

我设置了一个excel文件，其中B列是旧文件源，C列是新文件源

如何将其编码到VBA中

Sub FolderRename()
'Declaring variables
Dim complete_pathof_folder As String, state As String
For i = 2 To Sheets("Rename File").Range("b2").End(x1Down).Row
'Variable values
complete_pathof_folder = Cells(i, 2)
state = Cells(i, 5)

'Renames Original Folder Name
Name "C:\Users\n0269632\Desktop\Customers\AFL TELECOMMUNICATIONS"  
As "C:\Users\n0269632\Desktop\Customers\AFL TELECOMMUNICATIONS (SC)"
Next i

'Repeats Code Until an Empty Cell is Reached
Do Until IsEmpty(Cells(iRow, 1))
dCellValues(iRow) = Cells(iRow, 2).Value
iRow = iRow + 1
Loop
End Sub

---

您已将原始文件夹名称放入变量（complete_pathf_folder），因此请以相同的方式将新文件夹名称放入变量：

newfolderpath = cells(i,3).  

然后您只需要在Name语句中使用这些变量：

 Name complete_pathof_folder As newfolderpath

您可能需要执行一些错误检查，例如：

  If Dir(complete_pathof_folder) <> "" Then
           Name.....
  End If

如果Dir（完成文件夹）”，则
名称
如果结束

---

否则，如果列表中不存在路径，代码将抛出错误。

可能重复Nick，除非你尝试学习，反复问同一个问题只会让人不安，浪费时间。你需要尝试做一些指导，或者实际尝试人们的建议，因为其他问题的答案与你所问的完全一致，而回答者似乎更愿意回答你提出的任何后续问题。