Далее без ошибки компиляции (но у меня есть оба ..)

Question

' Loop through filenames and return within an array
For Each MyFile In MyFiles
    If InStr(1, MyFile.Name, FileExt) <> 0 Then
          Dim toSplitFileName As Variant

          toSplitFileName = Split(MyFile.Name, "-")

          For Each dept In deptCodes
            MsgBox ("True")

            If dept = toSplitFileName(3) Then
          Next dept

          Result(i) = MyFile.Name

          i = i + 1
    End If

Next MyFile

Ошибка происходит в «Для каждого отдела в deptCodes»

Я пришел из PHP-фона и пытаюсь подобрать VBA.Я знаю, что это должно быть чем-то новым, что я делаю, но я исследовал это в течение последнего часа или двух.

Вся ваша помощь очень ценится!

Answer 1

Я думаю, тебе это нужно.Предполагается, что Result объявлено соответствующим образом.

Dim toSplitFileName As Variant

For Each MyFile In MyFiles
    If InStr(1, MyFile.Name, FileExt) <> 0 Then

        toSplitFileName = Split(MyFile.Name, "-")

        For Each dept In deptCodes
            MsgBox ("True")
            If dept = toSplitFileName(3) Then
                Result(i) = MyFile.Name
                i = i + 1
            End If
        Next dept
    End If
Next MyFile