| |
▼Kein さん：
>こんな感じです。
>
>Sub MyIE()
> Dim MySt As String
> Const URL As String = "http://www.vbalab.net/"
>
> MySt = InputBox("検索する語句を入力して下さい")
> If MySt = "" Then Exit Sub
> With CreateObject("InternetExplorer.Application")
> .Visible = True
> .Navigate URL
> Do While .Busy: DoEvents: Loop
> Do Until .ReadyState = 4: DoEvents: Loop
> With .Document
> .All("txtSearch").Value = MySt
> .Forms(0).submit
> End With
> End With
>End Sub
>
>"txtSearch" という名前は、目的のサイトを表示してからIEの「表示」「ソース」
>を選択し、Body部からINPUTタグ(type=text)を探して、その名前(nameの値)を
>使います。
とりあえず質問したことが解決されたと思って、内容を確認してませんでした。
分からないところがあるので教えてください。
DoEvents
ヘルプで調べたのですが、いまいち理解できません。
「発生したイベントがオペレーティング システムによって処理されるように、プログラムで占有していた制御をオペレーティング システムに渡すフロー制御関数です。」とあります。
これは、どういう意味ですか？
ヘルプすら理解できないって恥ずかしいんですが教えてください。
Do While .Busy: DoEvents: Loop
ここは指定したURLを開こうとして、完全に開き終わってない間は待ちなさい。って意味かと勝手に考えました。
Do Until .ReadyState = 4: DoEvents: Loop
ここの意味がさっぱり分かりません。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
