« 【Excel VBA備忘ログ】IEの表示完了を待つ(修正) | トップページ | 【Excel VBA備忘ログ】ボタンを押すには »

【Excel VBA備忘ログ】htmlファイルから特定のタグを取り出す

表示されたhtmlファイル中の特定のタグだけを取り出す方法。
例はBODYブロック中のTDタグとTDタグで囲まれた文字列の取り出し。

0)準備
Dim IE as object
Dim uObj as object
Dim i as Integer

Set IE = CreateObject("InternetExplorer.application")
IE.Navigate url
※urlは開きたいURLを指定

'ここでIEの表示が終わるまで待つ

 

1)タグとタグ近辺の文字列を取り出してセルへ貼る
i = 1
For Each uObj In IE.document.Body.all.tags("td")
 Cells(i, "A") = "'" & TypeName(uObj)
 Cells(i, "B") = "'" & uObj.tagname
 Cells(i, "C") = "'" & Left(uObj.outerHTML, 128)
 Cells(i, "D") = "'" & Left(uObj.innerText, 128)
 Cells(i, "E") = "'" & Left(uObj.InnerHTML, 128)
 i = i + 1
Next i

2)例

<TD colSpan=4>
<A href="http://finance.yahoo.com/q?s=%5EGDAXI">DAX</A>
</TD>

上記のhtmlコードは以下のように分解される

TypeName・・・HTMLTableCell
tagname ・・・TD
outerHTML・・・<TD colSpan=4><A href="http://finance.yahoo.com/q?s=%5EGDAXI">DAX</A></TD>
innerText・・・DAX
InnerHTML・・・ <A href="http://finance.yahoo.com/q?s=%5EGDAXI">DAX</A>

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【Excel VBA備忘ログ】IEの表示完了を待つ(修正) | トップページ | 【Excel VBA備忘ログ】ボタンを押すには »

Excel」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/20884187

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】htmlファイルから特定のタグを取り出す:

« 【Excel VBA備忘ログ】IEの表示完了を待つ(修正) | トップページ | 【Excel VBA備忘ログ】ボタンを押すには »

amazon

マイリスト

  • 暮らしをおトクにかえていく|ポイントインカム
  • 暮らしをおトクにかえていく|ポイントインカム
  • フルーツメール
無料ブログはココログ