VBA를 긁어 코드는 태그 나 클래스

Question

친애하는 stackoverflowers,

내가 VBA에 새로운 오전 그리고 난이 암호로 보호 된 웹 사이트에서 일부 데이터를 얻기 위해 시도를 인식하지 못합니다. 사용자 이름과 비밀번호를 입력하고 제출 버튼을 클릭하면 정상적으로 작동합니다. 그런 다음 다른 페이지가 열리 며 여러 개의 '버튼'을 클릭해야하지만 왜 작동하지 않는지 이해할 수 없습니다. 다음 아이콘을 클릭 해보십시오.

<td class="menuitem"> <a title="Klik hier voor de dienst Kadaster-on-line" class="navig" onmouseover="return s_('Kadaster-on-line')" onmouseout="return s_()" href="https://kadaster-on-line.kadaster.nl/default.asp" target="_parent">Kadaster-on-line</a> 

코드의 첫 번째 부분은 지금까지

Dim IE As New SHDocVw.InternetExplorer 
Dim HTMLDoc As MSHTML.HTMLDocument 
Dim HTMLInput As MSHTML.IHTMLElement 
Dim HTMLButtons As MSHTML.IHTMLElementCollection 
Dim HTMLButton As MSHTML.IHTMLElement 
Dim HTMLAs As MSHTML.IHTMLElementCollection 
Dim HTMLA As MSHTML.IHTMLElement 

IE.Visible = True 
IE.navigate "https://mijn.kadaster.nl/security/login.jsp" 
Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop 

Set HTMLDoc = IE.Document 

Set HTMLInput = HTMLDoc.getElementById("gebruikerscode") 
    HTMLInput.Value = "username" 
IE.Document.forms("myform").elements("wachtwoord").Value = "password" 
    IE.Document.forms("myform").elements("inloggen").Click 

Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop 

작동하지만 두 번째 부분은 작동하지 않습니다. 첫째 나는 getelementsbyclassname하여 알아 내기 위해 노력하지만 난 그것을

코드가 나는 또한 클래스 이름과 코드를 시도한 태그 이름 "TD" 를 인식하지 못하는 것 같다

Set HTMLAs = HTMLDoc.getElementsByTagName("td") 
    'For Each HTMLA In HTMLAs 
     Debug.Print HTMLAs.Length 
    'Next 

"을 MENUITEM"태그 이름에 의해 작동한다 생각

누구든지 나를 도울 수 있습니까?

종류의 당신은 새로운 페이지를로드 한 후

Set HTMLDoc = IE.Document 

를 다시 실행해야

Answer 1

간주한다. 그렇지 않으면 HTMLDoc이 이전 페이지를 계속 가리 킵니다 (더 이상 사용할 수 없음 ...)