まず、冒頭、これは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で簡単に実現できそうだというあたりが、ええ、ちょっと楽しいかと。