0

私はそのobjIE.Document.body.innertext仕組みを理解しようとしています。私が読んだことから、それはほとんどのようCTRL+Cですが、私はそれを機能させようとしていますが、何かが欠けています. コードは次のとおりです。

Dim objIE
Dim strPrintText

Set objIE = CreateObject("InternetExplorer.Application")

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

msgbox(strPrintText)
4

1 に答える 1

1

ブラウザの準備が整うまで待つ必要があります (Sub を呼び出すときは param list () を使用しないでください):

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

背景についてはこちらを参照してください。

Sub 呼び出しの WRT param list ():

>> 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

理論/理由については、これを参照してください。プログラミングのルールについて議論するときは、「うまくいく」ことのメリットについて考えてください (または倫理: 捕まらない限り、窃盗は問題なく機能します)。

于 2013-10-01T13:43:32.620 に答える