报错：loop没有do，小弟我看了好多次，没看出来

2013-02-05

报错：loop没有do，我看了好多次，没看出来Do While MyFile Workbooks.Open Filename:Mypath & MyFileS

报错：loop没有do，我看了好多次，没看出来
    Do While MyFile <> ""

        Workbooks.Open Filename:=Mypath & MyFile

        Sheets(1).Select

        i = 13
        k = 1

        'find the filter line
        Do While k < 50
            If InStr(ActiveSheet.Cells(k, 6).Value, "Screen") <> 0 Then
                  i = k + 3
                  Exit Do
            End If
            k = k + 1
        Loop


        Do While ActiveSheet.Cells(i, 6) <> "" Or ActiveSheet.Cells(i, 7) <> "" Or ActiveSheet.Cells(i, 8) <> ""

                If ActiveSheet.Cells(i, 10) = "1" Then
                    If Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) = "" Then
                         Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) = ActiveSheet.Cells(i, 6)
                         Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 2) = ActiveSheet.Cells(i, 7)
                         Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 4) = ActiveSheet.Cells(i, 24)
                         Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, TranslaterColumn) = ActiveSheet.Cells(i, 42)
                    Else
                        If Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) <> ActiveSheet.Cell(i, 6) Then
                        MsgBox ("Error! ID " & Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) & " is not match with The translater books.")

                        Exit Do
                    End If
                    j = j + 1
                End If
            i = i + 1
        Loop  ‘这个位置报loop没有do的错误

    MyFile = Dir()

    Loop

我已经检查了，即是否遗漏end语句，我看没有遗漏，所以求高手指点，不胜感激 VBA????报错
[解决办法]
楼主会不会少了个end if
[解决办法]

引用:

楼主会不会少了个end if

三个if，两个endif，少了一个
If Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) <> ActiveSheet.Cell(i, 6) Then
貌似是这个没有配对
[解决办法]

If ActiveSheet.Cells(i, 10) = "1" Then
             If Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) = "" Then
                Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) = ActiveSheet.Cells(i, 6)
                Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 2) = ActiveSheet.Cells(i, 7)
                Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 4) = ActiveSheet.Cells(i, 24)
                Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, TranslaterColumn) = ActiveSheet.Cells(i, 42)
            Else
                If Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) <> ActiveSheet.Cell(i, 6) Then
                   MsgBox ("Error! ID " & Workbooks("PSAFinalString.xls").Sheets("TranslaterPSA").Cells(j, 1) & " is not match with The translater books.")
                   Exit Do
            End If
            j = j + 1
End If

热点排行