Question

我一直致力于代码重命名父文件夹中的数千个文件夹。这是我到目前为止所做的事情 - 我不完全确定在哪里使用什么或什么代码。

我有一个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

Answer 1

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

newfolderpath = cells(i,3).

然后你只想在Name语句中使用这些变量：

 Name complete_pathof_folder As newfolderpath

您可能想要进行一些错误检查，例如：

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

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

VBA重命名文件夹代码

1 个答案: