←実行画面
/*
* ３．指定したＵＲＬに飛ぶ
*/
無事、起動ができたら、今度は指定したページに飛ばしたいです。
私のメインページ、 http://www.ken3.org/ に飛ばすには、
.Navigate メソッドを使います
（全然関係無いけど、ネットスケープNavigator って頭に浮かんだ）
Sub ie_go_ken3()
Dim objIE As Object 'ＩＥオブジェクト参照用
'インターネットエクスプローラーのオブジェクトを作る
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする(お約束)
'文字列で指定したＵＲＬに飛ぶ
objIE.Navigate "http://www.ken3.org/"
End Sub
使い方は簡単で、
objIE.Navigate "http://www.ken3.org/"
と、文字列で飛びたい場所を指定してるたけです。
←実行画面
/*
* ４．ＨＴＭＬのソースを取り込む
*/
さて、ＩＥ起動、ページの移動、と順調？に来たので、
次は、アクセスカウンターの数値を取りこみたいんだけど、
どうしましょう？
う〜ん、、、あまり考えててもしょうがないので、
今回は、HTMLのソースから取ることにします。
HTMLのソースは、埋まっていて、
.document.body.innerHTML
で取出せます。
また、補足のポイントがあって、
読みこみ前に.document.body.innerHTMLを参照するとエラーが発生するので、
.Busy プロパティを見て、読み込み中、読み込み完了を判断します。
Sub ie_get_html()
Dim objIE As Object 'ＩＥオブジェクト参照用
'インターネットエクスプローラーのオブジェクトを作る
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True '見えるようにする(お約束)
'ランキングのページに飛ぶ
objIE.Navigate "http://www.ken3.org/cgi-bin/lime/limemgr.cgi"
'表示されるまで待つ、10秒後にエラーを判断する
Dim time10 As Date '時刻格納用
time10 = DateAdd("s", 10, Now()) '現在から１０秒後を計算
Do While objIE.Busy = True 'ビジー、読み込み中の間
DoEvents
If time10 < Now() Then '１０秒経過したか？
MsgBox "タイムアウトです"
Exit Sub
End If
Loop
'HTMLソースを取出す
Dim strHTML As String
strHTML = objIE.document.body.innerHTML '変数に代入
MsgBox strHTML 'テスト表示
Debug.Print strHTML 'イミディエイトにも表示
End Sub
なんか、いきなり長くなったけど、ポイントは、
Do While objIE.Busy = True 'ビジー、読み込み中の間
で、.Busy = True読み込み中を判断してます。
ずっと読み込み中だとイヤなので、
If time10 < Now() Then '１０秒経過したか？
MsgBox "タイムアウトです"
Exit Sub
End If
と、１０秒後をチェックして、１０秒経ったら関数を抜けてます。
strHTML = objIE.document.body.innerHTML '変数に代入
で、ソースを変数に代入して、
MsgBox strHTML 'テスト表示
Debug.Print strHTML 'イミディエイトにも表示
と、確認表示してます。
Debug.Printで、下記のように表示されてます。
<TR>
<TH colSpan=2>計</TH>
<TD align=right><B>1,073</B></TD>
<TD><BR></TD></TR></TBODY></TABLE><BR><BR>
<DIV align=right>
ここから、計の文字を探して、1,073を取出せば、ＯＫですね。
説明が長くなりそうなので、
計の文字を探して、1,073を取出しは、次回ループとＩｎＳｔｒ関数にします。
←デバック画面
/*
* ５.おわりの挨拶
*/
今回は、
・IEの起動
・指定ページに飛ぶ
・ＨＴＭＬのソースを取出す
でした。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba050.lzh
に
test050-book.xlsが保存されています。
ＩＥのコントロールも簡単、ハマるでしょ？
また、使い方によっては、いろいろと変な処理もできそうです。
＊掲示板荒らしとか自動広告クリックとか、へんな方向に使わないでね。。。
何か素朴な疑問などあったら、メール、掲示板に気軽に書いてください。
拾い読みして、
１つでも何かの参考となれば幸いです。
Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。