Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46969 / 76732

←次へ　｜　前へ→


	【34730】Re:IEに入力するには

初心者 - 06/2/10(金) 16:48 -


	引用なし

	パスワード

▼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
ここの意味がさっぱり分かりません。

0 hits

▼

【34717】IEに入力するには 初心者 06/2/10(金) 14:54