Мне нужно искать папку на основе переменных Mgr = Data(I,2)
value и Last = Data(I,1)
value.У меня есть все папки, созданные по определенному пути.Как мне отредактировать это:
wb.SaveCopyAs ThisWorkbook.Path & Application.PathSeparator & _
ValidFileName(Mgr & "_" & Last & "_General Assessment.xlsx")
, чтобы он искал путь к папке для переменной Mgr
(имя менеджера), а затем переменную Last
(имя сотрудника) и затем сохранял там файл?Я не хочу, чтобы он сохранял в пути к папке, что wb с поддержкой макросов сохраняется, но для поиска соответствующей папки в другом пути.
Остальная часть кода:
For i = 1 To UBound(Data)
If Data(i, 1) <> Last Then
If i > 1 Then
Dest.Select
wb.SaveCopyAs ThisWorkbook.Path & Application.PathSeparator & _
ValidFileName(Mgr & "_" & Last & "_General Assessment.xlsx")
End If
Dest.Resize(, Columns.Count - Dest.Column).EntireColumn.ClearContents
Last = Data(i, 1)
Mgr = Data(i, 2)
j = 0
End If
a = 0
For k = 1 To UBound(Data, 2)
Dest.Offset(a, j) = Data(i, k)
a = a + 1
Next
j = j + 1
Next
SaveCopy wb, Last, Mgr '<< save the last report