Ошибка «End If без блока If»

Question

У меня проблема с Excek VBA. Следующая часть моего кода возвращает код ошибки «End If без блока If». Но я не могу понять, почему. Я искал в интернете, но до сих пор не могу найти в чем проблема. О коде: я хочу открыть две папки и найти файл в папке 1 (Controlfolder) с именем файла, содержащим строку «ROI_3». Когда найден, я хочу открыть его и найти файл в другой папке (Treatedfolder) с именем, содержащим «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