Могу ли я добавить оператор IF, чтобы узнать, существует ли папка? - PullRequest
0 голосов
/ 11 февраля 2019

Мне нужно искать папку на основе переменных 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...