ウィリアムのいたずらの開発日記

ウィリアムのいたずらが、コンピューター関係について、思ったことを好き勝手に書いているブログです。

RSSを、Excelのマクロで読み込んで、シートに表示させる方法

2006-05-25 17:45:57 | Officeソフト&VBA

 表題の件について、せっかくだから、gooトレンドランキングでやってみる




■仕様
 Excelのマクロを使って、gooトレンドランキングのRSSを読み込んで、
 タイトルを表示せよ

・gooトレンドランキングのRSSは、
 こちら http://labs.goo.ne.jp/blogscope/rss/index.rdf

・これを読み込んで、Excelに、こんな風に表示する





■方法
(1)まず、ボタンをExcelシートにつくる。
 すると、ダイアログが出てくるので、そこで、新規作成
 にするとExcelのマクロを作成する画面(VBE)にいく

 →ここまでは 、ふつうのExcelマクロを作るときの方法

(2)参照設定でXMLを追加する(ここ重要!)
 VBE(Excelのマクロを作成する画面)で、
 ツール→参照設定で、参照設定ダイアログを出し、
 下の図のように
 Microsoft XML
 という言葉のついたもの、どれか1つ選んでください

 (その後の数字はバージョンですが、今回のはどれでもOKだと思う。
 5はExcel 2003出ない人は、ないかも?3でもOK)

(3)ソースコードの編集
ソースは、こんなかんじにかく。
Sub ボタン1_Click()
    Dim xdoc As New DOMDocument
    Dim xtree As IXMLDOMElement
    Dim namelist As IXMLDOMNodeList
    Dim node As IXMLDOMNode
    
    Dim i As Integer
    
    '/*========================*/
    '/*   データを取ってくる   */
    '/*========================*/
    xdoc.async = False
    xdoc.Load ("http://labs.goo.ne.jp/blogscope/rss/index.rdf")
    
    '/*========================*/
    '/*   タイトルの取得       */
    '/*========================*/
                '  全体をとってくる
    Set xtree = xdoc.documentElement
                '   タイトルを集めるのだ
    Set namelist = xtree.getElementsByTagName("title")
    
    '/*=========================*/
    '/*     タイトル書き出し    */
    '/*=========================*/
    i = 0
    Do While (Not namelist(i) Is Nothing)
        ActiveSheet.Cells(i + 1, 1) = namelist(i).nodeTypedValue
        i = i + 1
    Loop
   
End Sub

(1)で新規作成でできた関数が、「ボタン1_Click()」だったので
そこに作っています。




■実行&その他
これで、ボタンをおすと、仕様のところの画像のようなものが
できてくるはず。
RSSをかえれば、いろんなところのRSSがおんなじようなかんじで
操作できる(Excel2003でなくても、それ以前のExcelでもMicrosoftXMLは
入っていたと思った。入ってればできると思う)
今回はタイトルだけだったけど、itemからとってきて、いろいろ操作
すると、いろんなのが、表にできるよ(^^)




 で、今回言いたかったのは、こんなことじゃなくって、
 このように、バリバリにExcel使って(ブラウザじゃなくって)

 VBAで(AJAXじゃなくって)書いてるんですけど、

 これってのもWeb2.0なんすかねえ??

 RSS読めば、Web2.0。。

 ま、そーいうことで、いいのかな?
 それとも、AJAXとか使って、おしゃれじゃないと、Web2.0って
 呼ばないのかなあ?

 ってことが書きたかった(^^)



『テクノロジー』 ジャンルのランキング
この記事についてブログを書く
この記事をはてなブックマークに追加
« Web2.0の本も買ってみた。だ... | トップ | ホリエモンの評判とWeb2.0の... »
最近の画像もっと見る

Officeソフト&VBA」カテゴリの最新記事

関連するみんなの記事