excel - 接下来没有编译错误(但我都有..)

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

错误发生在“For Each dept In 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