VBA는 IE 웹 페이지에서 키워드의 위치를 ​​얻는 것이 가능합니다.

Question

VBA를 사용하여 웹 페이지를 엽니 다 (이 웹 페이지는 데이터 셀이있는 HTML로 구성되어 있습니다), 키워드를 찾고 키워드를 이메일로 보냅니다. 키워드의 위와 아래에있는 특정 수의 행 데이터가 있습니다. 하지만 이렇게하려면 키워드의 위치 (예 : 행 3, 열 2 또는 행 4 문자 4 ~ 10 등)를 찾을 수 있어야합니다. Internet Explorer 라이브러리에이 작업을 수행 할 수있는 명령이 있습니까? 지금까지 나는 하나의 키워드에 대해서만 코드를 가지고 있으며, 그것은 키워드로 가서 선택/강조 표시합니다. 이제 위/아래의 일정량의 행을 가져 와서 보내는 방법을 알아야합니다.

또 다른 질문 : 현재 웹 페이지 전체를 검사하는 중첩 루프를 만들기 위해 현재 코드를 수정하고 여러 키워드를 사용하는 것이 좋습니다.

Sub subFindScrollIE() 

Dim boolFound As Boolean 



    Dim ie As InternetExplorer 

    Set ie = New InternetExplorer 

    ie.Navigate "my URL HERE" 

    strTemp = "KEYWORD1" 

    Do Until ie.ReadyState = READYSTATE_COMPLETE 

     'DoEvents 

    Loop 

    ie.Visible = True 

    Set txt = ie.Document.body.createTextRange() 

    boolFound = txt.findText(strTemp) 

    txt.moveStart "character", -1 

    txt.findText strTemp 

    txt.Select 

    txt.ScrollIntoView 




    Set ie = Nothing 

End Sub 

Answer 1

정규 표현식을 사용하여 이후 텍스트 및 주변 텍스트를 찾는 경우 계속해서 시작할 수 있습니다.

개인적으로, 나는 당신이 무엇을하고 있는지 찾기 위해 html 개체를 사용하는 것을 선호합니다. 다음은 일반적인 테이블을 반복하는 몇 가지 예제 코드입니다.

Sub subFindScrollIE() 

    Dim strTemp() As Variant, output() As String, txt As String 
    Dim tr As HTMLTableRow, r As Integer, i As Integer 
    Dim tRows As IHTMLElementCollection 
    Dim xlR As Byte, c As Byte 
    Dim ie As InternetExplorerMedium 

    Set ie = New InternetExplorerMedium 
    ie.Visible = True 
    ie.Navigate "E:\Dev\table.htm" 

    strTemp = Array("abc", "mno", "vwx", "efg") 

    Do Until (ie.ReadyState = 4 Or ie.ReadyState = 3): Loop 

    Set tRows = ie.Document.body.getElementsByTagName("tr") 
    xlR = 2 

    ' loop through rows 
    For r = 0 To tRows.Length - 1 

     Set tr = tRows(r) 

     ' loop through search text 
     For i = 0 To UBound(strTemp) 

      ' search row for string 
      txt = LCase(tr.innerHTML) 
      If (InStr(txt, LCase(strTemp(i))) > 0) Then 

       ' search string found. split table data into array 
       txt = tr.innerHTML 
       txt = Replace(txt, "</td><td>", "~") 
       txt = Replace(txt, "<td>", "") 
       txt = Replace(txt, "</td>", "") 
       output = Split(txt, "~") 

       ' populate cells from array 
       For c = 0 To UBound(output) 
        Sheet1.Cells(xlR, c + 2) = output(c) 
       Next c 
       xlR = xlR + 2 
      End If 
     Next i 
    Next r 

    ie.Quit 
    Set ie = Nothing 

End Sub