Перебрать каждую строку, чтобы найти, если значение существует - PullRequest
Новая
       35

Перебрать каждую строку, чтобы найти, если значение существует

1 голос
/ 27 сентября 2019

У меня есть 100 строк информации в SAP и 100 в Excel, я хочу проверить каждую строку в SAP, существует ли информация в 100 строках информации в Excel.В настоящее время у меня есть следующее code, но оно не проверяет каждую строку, оно проверяет строку за строкой, например, 10th строка в SAP сравнивается с 10th строкой в ​​Excel. 

i = 0
While Cells(7 + i, 1).Value <> ""
        For a = 7 To 100
            If .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EMATN[4,0]").Text = Cells(a, 2).Value Then
                .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211").getAbsoluteRow(i).Selected = True
                .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211").verticalScrollbar.Position = j
            Else:
                .findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211").verticalScrollbar.Position = j
            End If
            i = i + 1
            j = j + 1
        Next a
        Exit Sub
Wend

Кто-нибудь может помочь?Спасибо

...