2016-06-28 2 views
1

Excel VBA 사용 웹 페이지에서 특정 클래스의 내용을 가져 오려고합니다.Excel VBA 오류 런타임 오류 438 웹 페이지 클래스 콘텐츠 가져 오기

sUrl = "https://www.example.com/" 
Set oBrowser = CreateObject("InternetExplorer.Application") 
oBrowser.navigate sUrl 
With oBrowser 
Do While .Busy Or .ReadyState <> 4: Loop 
End With 
Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew") 

이 코드는 IE 브라우저를 작성하고 올바른 페이지로 이동된다

는 코드입니다.

enter image description here

행에서 : 오류를 생성하지 않는 코드를 컴파일

Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew") 

그러나, 나는 오류가 발생합니다.

답변

0

당신은 당신이 원하는 클래스 요소의 인덱스 번호를 알아야합니다, 또는 경우 클래스 이름 시도와의 유일한 요소 :

Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew")(0) 

또한 필요합니다 .innerText, outerText, innerHTML 또는 객체를 문자열로 변환하려면 끝에 outerHTML을 입력하십시오.

+0

같은 이름의 클래스가 여러 개 있습니다. 나는 그들 모두를 반복 할 필요가있다. 그런 다음 innerHTML을 얻습니다. –

+0

HTMLDoc을 무엇으로 선언 했습니까? – Jordan

+0

Dim HTMLDoc Object –

관련 문제