←参考画面
次に変数を見たいのでウォッチ式を追加します。
追加方法は、
Dim objIE As Object 'ＩＥオブジェクト参照用
など、変数を定義している場所で、
objIEをドラック、右クリックしてウォッチ式の追加を選択します。
←参考画面
/*
* ３．実行して、オブジェクトの中身を探る
*/
ブレークポイントの設定
変数objIEをウォッチする準備が整ったので、
実行して、変数の中身を探ってみます。
実行すると、ブレークポイントの場所で止まります。
当たり前だろ、そのために設定したんでしょアナタが。
そうでしたね。
ブレークポイントで止まってからは、
飲み会に誘った女の子みたいに逃げないので
落ち着いて中身をチェックしましょう。
（飲み会で、逃げられてるみたいだなぁ、この書き方だと（笑））
ウォッチウインドウの変数名の横＋をクリックして中身を探って行きます。
←参考画面
それにしても、階層が深いです。
テーブル系のオブジェクトを探すが、なかなか見つからない。
（女の子じゃなくって、ＩＥの心の中は複雑なのね、、、）
途中で、innerTextなんてのを見つけたので、
中身を確認するために、となりのイミディエイトウインドウで、
? objIE.document.body.innerText
と中身を聞いてみた（アクセスしてみた。）
←参考画面
? objIE.document.body.innerText
[戻る] アクセス集計一覧
以下は当サイトのアクセス集計です。
リンク部をクリックすると該当ページへジャンプします。
順位項目カウント統計
1VBA系411 25.3%
2総合案内のページ（ＴＯＰ）302 18.6%
3VBA系バックナンバー目次215 13.2%
4コンビニ166 10.2%
5愚痴系バックナンバー目次138 8.5%
6ASP系のメルマガ122 7.5%
7ASP系バックナンバー目次94 5.8%
8愚痴92 5.7%
9VB.NET(有料版)30 1.8%
10有料版メルマガ(TOP)24 1.5%
11Officeで作る(有料版)15 0.9%
12ASPで作るGame(有料版)14 0.9%
計1,623
と詰まったテキストが表示されました。
こっちのほうが＜ＸＸＸ＞とタグが付いてないので、
使い易そうです。（ケースにもよるけどね）
目的のテーブル関係のオブジェクトは見つからなかったのですが、
ネタになりそうな.innerTextプロパティを拾ったので、
中断を解除します（ブレークで止めてた処理を継続し終わらせる）
←参考画面
/*
* ４．.document.body.innerText で取り出してみた
*/
さっそく、調べたプロパティ.innerTextを使って、
テキストを抜き出し表示してみました。
Sub ie_get_itext() 'VBA052で解説
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
'innerTextを取出す
Dim strTEXT As String
strTEXT = objIE.document.body.innerText '変数に代入
Debug.Print strTEXT 'イミディエイトにも表示
'UserFormを開く(確認用)
frmINFO.txtINFO.Value = strTEXT 'HTMLを代入
frmINFO.Show 'フォームを開く
End Sub
ポイントは、
~~~~~~~~~~~
Dim strTEXT As String
strTEXT = objIE.document.body.innerText '変数に代入
で、変数代入後、
いつものMsgBoxだとツマラナイので、
確認用のユーザーフォームを作成し、
frmINFO.txtINFO.Value = strTEXT 'HTMLを代入
frmINFO.Show 'フォームを開く
とフォームに表示してみました。
/*
* ５.おわりの挨拶
*/
今回は、
・プレークポイントを設定、ウォッチ式の追加、変数の中身を探る
・.document.body.innerTextで、ＩＥのテキスト表示データを取り込む
でした。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba052.lzh
に
test052-book.xlsが保存されています。
いろいろなＷｅｂサイトから、データをExcelやAccessにもって来れそうですね。
何か素朴な疑問などあったら、メール、掲示板に気軽に書いてください。
拾い読みして、
１つでも何かの参考となれば幸いです。
Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
----------------------------------
関連項目(ただのバックナンバー紹介)
----------------------------------
[No.50 IE起動 CreateObject("InternetExplorer.application")]
( /vba/backno/vba050.html を参照)
では、IEの起動方法を書きました。
[ イミディエイト ウインドウ と Debug.Print ]
( http://www.ken3.org/vba/iwind.html を参照 )
で、イミディエイト ウインドウの説明を少し。
[ プロパティ、メソッドを探る方法 ]
( http://www.ken3.org/vba/excel-help.html を参照 )
で、プロパティ、メソッドを探る方法の説明を少し行いました。
時間があったら、あわせてみて下さい。