작업 할 브라우저와 페이지를 열 수 있습니다. 그러나 실제 관심 지점은 "Next"라는 링크입니다. 해당 링크를 클릭하고 싶지만 내 코드에서 해당 요소를 가져 오려고 시도했지만 실패했습니다. 지금까지 내가 한 일이 있습니다.
Dim URL
Dim IE
Set IE = CreateObject("internetexplorer.application")
URL = "http://mylink.com/"
IE.Visible = True
IE.Navigate URL
Dim a
Set a = IE.Document.GetElementsByTagName("arrowRight")
For i = 0 To a.Length - 1
MsgBox "Found it"
a.Click
Exit For
Next
페이지 코드에 "다음"하이퍼 링크가 삽입되는 방법은 다음과 같습니다.
<a class="arrowRight" href="http://SomeURL.com/150.html">Next</a>
arrowRight당신이 점검 할 필요가 있도록 (CSS) 클래스 이름이 아닌 태그 이름이며, a클래스와 태그 arrowRight:
For Each a In ie.document.getElementsByTagName("a")
If a.getAttribute("class") = "arrowRight" And a.innerText = "Next" Then
a.Click
Exit For
End If
Next
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다