2013-10-01 4 views
0

objIE.Document.body.innertext의 작동 방식을 이해하려고합니다. 내가 읽은 바로는 거의 CTRL+C과 비슷하지만 작동하도록 노력하고 있습니다. 누락 된 부분이 있습니다. 여기 코드는 다음과 같습니다objIE.Document.body.innertext는 어떻게 작동합니까?

Dim objIE 
Dim strPrintText 

Set objIE = CreateObject("InternetExplorer.Application") 

objIE.Navigate "www.bing.com" 
strPrintText = objIE.Document.body.innertext 

msgbox(strPrintText) 

답변

1

는 브라우저가 준비 될 때까지 (그리고 PARAM 목록을 사용하지() 하위를 호출 할 때) 기다려야합니다 :

Dim objIE 
Dim strPrintText 

Set objIE = CreateObject("InternetExplorer.Application") 

objIE.Navigate "www.bing.com" 

Do Until objIE.readyState = 4 : Wscript.Sleep 10 : Loop 

strPrintText = objIE.Document.body.innertext 

msgbox strPrintText 

this for background을은 cf하시기 바랍니다.

WRT의 PARAM 목록()에서 하위 전화 : 이론/이유 CF this에 대한

>> MsgBox "No param() when calling a Sub!", vbOkOnly 
>> 
>> MsgBox("No param() when calling a Sub!", vbOkOnly) 
>> 
Error Number:  1044 
Error Description: Cannot use parentheses when calling a Sub 
>> 
>> MsgBox "Do you believe me now?", vbOkOnly 

; 프로그래밍 규칙 (또는 윤리 : 도둑질이 잘되는 동안 잡히지 않는 한)을 논의 할 때 "작동한다"라는 장점을 반영합니다.

+0

감사합니다. 그것은 완벽하게 작동했습니다. 나는 여전히 내 변수 주위에'()'을 메시지 상자에 넣었으며 작동한다. 이것은 내가 필요한 것입니다. – Lou

+0

나는 "cf"에서 길을 잃은 것 같아 ... 그냥 효과가 있다고 말하는거야, 그렇지 않다는 뜻인가? 나는'()'을 제거 할 수 있고 똑같이 작동하지만, 메시지 상자를 만들 때 사용하지 않는 것이 바람직하다면, 나는 그것에 적응할 수있다. 팁 고마워. :) – Lou

+0

나는 당신이 붙인 블로그를 읽었다. 이제는 의미가 있습니다. 유용한 정보를 제공해 주셔서 감사합니다. – Lou