GAPI4Excel

GoogleAnalyticsAPIをExcelマクロから使えるライブラリを作ってしまった。

ダウンロード

参考にしたのは
Google Analytics API class for PHP | Ask About PHP
お世話になりました。
IFもほぼ一緒です。

Dim ga as GoogleAnalytics
Set ga = New GoogleAnalytics
ga.Init "", ""
ga.SetProfile "ga:"
ga.SetDateRange "2009/9/1", "2009/9/30"

Dim result() As Object
' プロファイル情報の取得。resultにはScripting.Dictionaryの配列、つまりはハッシュの配列が返る。
result = ga.GetWebsiteProfiles()
' レポートの取得。同上。
result = ga.GetReport("", "", "", "", , )


'たとえばこんな感じで、日付とページビューが取れる。
result = ga.GetReport("ga:date", "ga:pageviews,ga:visits", "", "ga:date", 0, 0)

あとは、マクロを駆使するのみ！