IEを使用して、Web上の表をExcelへ

メルマガ発行内容

＜IEを使用して、Web上の表をExcelへ＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
IEを使用して、Web上の表をExcelに取り込む処理
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
そんな感じの処理を作成してみたいと思います。

http://www.ken3.org/p/7/office-026.lzh
に今回のサンプル保存されてます。
あわせてみてください。

/*
 * １. 今回のキッカケ
*/

メールで下記の質問をもらいました。
-----
 >私は、ＩＥのテーブル部分をマウスで範囲選択しコピー、そ
 >れをＥｘｃｅｌに貼り付けています。これで、セルスタイル
 >のデータになります。
 >次に、Ｅｘｃｅｌデータをアクセステーブルに追加貼付け
 >しています。これら一連の手作業をＶＢＡで自動的にやりた
 >いのですが、できれば、連続的に例えば同種で複数のページ
 >を自動的に取り込めたらと思うのですが。
-----

要望は、Accessのテーブルへだけど、
今回は、途中のIE --＞ Excelへの落とし込みにチャレンジしてみます。

/*
 * ２．IE Elementオブジェクト（タグに対応した各要素）を探る
*/

IEのオブジェクトの要素を探ってみます。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Sub ie_test_click()

    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Dim objTAG   As Object
    Dim y As Integer

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    
    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/cgi-bin/g/index.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '
     y = 2
     
     '.All のデータをループする
     For Each objTAG In objIE.document.all
        Cells(y, "A") = objTAG.tagName
        Cells(y, "B") = objTAG.innerHTML
        Cells(y, "C") = objTAG.innerTEXT
        Cells(y, "D") = objTAG.outerHTML
        Cells(y, "E") = objTAG.outerTEXT
        y = y + 1
     Next

End Sub

ポイントは、
~~~~~~~~~~~~
For Each objTAG In objIE.document.all
で、.Allまわしてみました。
        Cells(y, "A") = objTAG.tagName
        Cells(y, "B") = objTAG.innerHTML
        Cells(y, "C") = objTAG.innerTEXT
        Cells(y, "D") = objTAG.outerHTML
        Cells(y, "E") = objTAG.outerTEXT
で、それぞれ、データをセットしてみました。

Elementオブジェクト（タグに対応した各要素）
 innerHTML　内部にあるタグ付き文字列
 innerText　内部にある文字列のみ
 outerHTML　外部も含めたタグ付き文字列
 outerText　外部も含めた文字列
 tagName　対象となっているタグの名前

と、データが取れるので、確認してみてください。

HTMLは、基本のパターンを書くと、
<Font SIZE=+1><I>AAAA</I></Font>
と、
タグの開始と終了に挟まれています（囲われてます）

For Each objTAG In objIE.document.all
で、各タグを取り出してます。

まぁ、
.tagNameがタグの名前なので、FONTとなっていて、
^^^^^^^^
.innerHTMLは内部にあるタグ付き文字列なので、<I>AAAA</I>
^^^^^^^^^^
.outerHTMLが外部も含めたタグ付き文字列、なんて堅く書いてるけど、
^^^^^^^^^^そのまんまの、
<Font SIZE=+1><I>AAAA</I></Font>
と外側のタグも含めたHTMLの文字列なんですね。
あとは、innerText,outerText は、タグが抜かれたテキストです。

場面によって、使い分けてくださいね。

/*
 * ３．表のオブジェクト（TABLEタグ）を探る
*/

作りたいのは、Web上に表示されている表から、
データを取り出したい処理なので、そこら辺を探ってみます。

HTMLの表は、基本のパターンを書くと、
<TABLE>
 <TR>
   <TD>XXXXXX</TD>
   <TD>YYYYYY</TD>
   <TD>ZZZZZZ</TD>
 </TR>
</TABLE>
と、
<TABLE>テーブルのタグから始まり、
<TR>行の開始
<TD>列のデータ（<TH>と見出しをキチント書いている人もありです）
の
３つの組み合わせと順番です。

IE Elementオブジェクト（タグに対応した各要素）
で、
Elementオブジェクト（タグに対応した各要素）
 innerHTML　内部にあるタグ付き文字列
 innerText　内部にある文字列のみ
 outerHTML　外部も含めたタグ付き文字列
 outerText　外部も含めた文字列
 tagName　対象となっているタグの名前
を探ってました。

下記のテストプログラムで、
http://www.ken3.org/cgi-bin/cnt/test.asp
で表示される表を探ってみます。

Sub ie_test_click()

    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Dim objTAG   As Object
    Dim y As Integer

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    
    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/cgi-bin/cnt/test.asp"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop
     
     'データを削除する
    Rows("3:1000").Select
    Selection.Delete Shift:=xlUp
     
     '３行目から書き込む
     y = 3
     
     '.body のデータをループする
     For Each objTAG In objIE.document.body.all
        Cells(y, "A") = objTAG.tagName
        Cells(y, "B") = objTAG.innerHTML
        Cells(y, "C") = objTAG.innerTEXT
        Cells(y, "D") = objTAG.outerHTML
        Cells(y, "E") = objTAG.outerTEXT
        y = y + 1
     Next

End Sub

タグ別にデータを取り出せるが、
これだと、テーブルは見つけられても、セットできない。

う〜ん、、どうしましょう・・・

objIE.document.body.allのアイテム内を探すと、


さらに下の<TABLE>のアイテムを探ると、
ITEM8なんですが、その下にもALLの階層があって、

さらにアイテムを探すと、テーブルの中身が取れます。

Item8は、.all 28個のアイテムを持っていて、
なんて感じで、テーブル内のデータを探れそうです。


/*
 * ４．階層を深くたどり、Excelへデータを取り込む
*/

TABLEのタグを見つけたら、
そのITEM内をさらに.Allで探し、テーブルをExcelの表にしてみたいと思います。

Sub ie_make_table_test()

    Dim objIE    As Object  'ＩＥオブジェクト参照用
    Dim objTAG   As Object  'TAGのオブジェクトを代入
    Dim y As Integer
    Dim x As Integer
    Dim objTableItem As Object 'TABLE内のITEM検索用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    
    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/cgi-bin/cnt/test.asp"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop
     
     '.body のデータをループする
     For Each objTAG In objIE.document.body.all
        'テーブルのタグを探す
        If objTAG.tagName = "TABLE" Then
            '新規ブックを追加する
            Workbooks.Add
            'カウンタの初期化
            y = 0 '行カウンタ
            'テーブル内のITEMでループする
            For Each objTableItem In objTAG.all
                If objTableItem.tagName = "TR" Then
                    y = y + 1   '行カウンタを+1
                    x = 1 '列カウンタを１(左端にする)
                End If
                If objTableItem.tagName = "TD" Then
                    'テキストデータをセットする
                    Cells(y, x) = objTableItem.innerText
                    x = x + 1 '列カウンタを+１(次にする)
                End If
            Next
        End If
     Next

End Sub

なんか、ループが深いですが、
ポイントは、
^^^^^^^^^^^^
For Each objTAG In objIE.document.body.all
と、<BODY>内をループで回し、タグ(ITEM)を１つ１つ取り出します。

取り出したタグがTABLEか判断するには、
        If objTAG.tagName = "TABLE" Then
と、.tagNameで判断してます。

※TABLEの要素を.document.body.allから見つけます。
　見つけ方は、.tagNameとタグの名前がTABLEかで判断してます。

TABLEのITEM(要素、エレメント)を見つけたら、
今度は、そのTABLE内のITEMを１つ１つ取り出します。
For Each objTableItem In objTAG.all
objTAG.allがポイントです。

※objTAGがテーブルのオブジェクトです、
　このオブジェクトは、階層構造になっており、
　アイテムを複数持ってます。
　そのアイテムを取り出すために、
  For Each objTableItem In objTAG.all
　と記述して、TABLEオブジェクトから要素(TRやTDなど)を取り出します

行の開始が<TR>なので、
  If objTableItem.tagName = "TR" Then
      y = y + 1   '行カウンタを+1
      x = 1 '列カウンタを１(左端にする)
  End If
と、行を＋1列を開始位置の１にセットします。

<TD>がデータなので、
If objTableItem.tagName = "TD" Then
    'テキストデータをセットする
    Cells(y, x) = objTableItem.innerText
    x = x + 1 '列カウンタを+１(次にする)
End If
と普通にデータをセットしてます。

/*
 * ５．終わりの挨拶
*/

今回は、
ＩＥのオブジェクト、ITEMを探るのを兼ねて、
<TABLE>をExcelに取り込んでみました。

http://www.ken3.org/p/7/office-026.lzh
に今回のサンプル保存されてます。
あわせてみてください。

最大のポイントは、
みつけた<TABLE>のアイテムからさらにITEMが検索可能だった点です。

まぁ、よくよく、考えてみれば、
<ＨＴＭＬ> 〜 </ ＨＴＭＬ>と、一番大きなタグ（笑）
から、ＩＴＥＭ単位で行っているので、
大分類から中分類、小分類を探る、そんな感じでしたね。

なんか、出来たようなこと、完成したと書いてるけど、
結合セルの処理がまだなのと、右寄せ・中央・左寄せなどの処理、
バックカラーの処理がまだかなぁ。

あっ、あと、表なのに、罫線もつけてないしね・・・

不思議なＩＥお嬢様、まだまだ攻略できそうにないよね。
えっ、Ｅｘｃｅｌ姫やＡｃｃｅｓｓお姉さまも攻略して無いダロって？
※う〜ん、実力無くて、なかなか、攻略できなくて。。。。

何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック