pagetaka

写真、PC、ネット、岡山、旅の話題をお届けします

WordVBA:twitterの記事数、フォロー数、フォロワー数はどうやら取得できそう…

まず、冒頭、これはWordに限ってのVBAのおはなしではないということをお断りしておきます。これまで、VBAといえばWordのことばかり書いてきましたので、流れはそんなものだけど、具体的にはExcelでも同様に、ということだと…。

で、見出し関連の核心部分です。ええ、Aさんのtweet、follow、followerの数を取得できるという見通しです。

ひとつ前の記事で、日本共産党の山下かいさんのWord関連のことをとりあげましたので、今度は、東京の吉良よしこ参議院議員のtwitterをとりあげてみます。

Sub ieKiraTwitter()
'
'InternetExplorer で特定URLのページを表示し
'HTMLタグbodyの内側だけ取得する
'
    'InternetExplorerを使う準備
    Dim ie As InternetExplorer
    Set ie = CreateObject("internetexplorer.application")
    
    '特定URLを文字定数宣言し代入する
    Const urlTemp As String = "https://twitter.com/kirayoshiko"
    
    
    'InternetExplorerを見えるようにする。
    'ie.Visible = False 'だとIEを画面表示しないまま処理実行
    ie.Visible = True
    
    '特定URLページをIEに指示
    ie.Navigate urlTemp
    
    'IEの読み込み待ち
    Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE
        DoEvents
    Loop
    
    'IEで取得できたbody内の文字をイミディエイト窓に表示
    Debug.Print ie.Document.body.innerhtml
    
    'InternetExplorer終了
    ie.Quit
End Sub

上のVBAを実行すると、たくさんのタグなどをふくむテキストの中に、

"followers_count":14494,"friends_count":1511,"listed_count":675
"statuses_count":9176
"favourites_count":4332

などが読み取れます。
これを継続的にやって蓄積していくと、変化がいずれわかることになるのかと…。
まあ、初歩的なデータですけど、VBAで簡単に実現できそうだというあたりが、ええ、ちょっと楽しいかと。