“结束如果没有阻塞如果”错误

Question

我对Excek有个问题。下面的部分代码返回错误代码“如果没有块If”。但我不明白为什么。我在网上搜索，但仍然找不到问题所在。关于代码:我想打开两个文件夹，并在文件夹1(Control文件夹)中找到包含字符串"ROI_3“的文件名。当找到它时，我想打开它并在另一个文件夹(Treated文件夹)中找到包含"ROI_3“的文件。稍后，我希望使用两个文件中的数据进行计算。下面您可以看到代码的相关部分。

Do While ControlFile <> ""

        If InStr(ControlFile, "ROI_3") > 0 Then
            Workbooks(ControlFile).Open
            Exit Do
            TreatedFile = Dir(TreatedFolder & "\", vbReadOnly)
                Do While TreatedFile <> ""
                If InStr(TreatedFile, "ROI_3") > 0 Then
                    Workbooks(TreatedFile).Open
                    Exit Do
                End If
        End If
        ControlFile = Dir
Loop

亲切的问候

费伦茨

Answer 1

嗨，下面应该工作，你有两个做的只有一个循环，我也移动了结束如果到结束的第一个如果，应该工作。让我知道。

Do While ControlFile <> ""

            If InStr(ControlFile, "ROI_3") > 0 Then
            Workbooks(ControlFile).Open
            Exit Do
            End If
            TreatedFile = Dir(TreatedFolder & "\", vbReadOnly)
                Do While TreatedFile <> ""
                If InStr(TreatedFile, "ROI_3") > 0 Then
                    Workbooks(TreatedFile).Open
                    Exit Do
                End If

        ControlFile = Dir


Loop
Loop