Hatena::ブログ(Diary)

個人事業主のつぶやき

2009-10-20

[][]GAPI4Excel

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

ダウンロード

参考にしたのは

Google Analytics API class for PHP | Ask About PHP

お世話になりました。

IFもほぼ一緒です。

Dim ga as GoogleAnalytics
Set ga = New GoogleAnalytics
ga.Init "<email>", "<password>"
ga.SetProfile "ga:<profileId>"
ga.SetDateRange "2009/9/1", "2009/9/30"

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


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

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

kyouzaidckyouzaidc 2009/11/10 22:49 はじめまして。EXCEL2000で試しましたが、とくにエラーは出なかったものの、反応がありません。2000では動かないですか。。。

kobayashikobayashi 2010/11/24 14:39 はじめまして。
Excelマクロをありがたく使わせていただいています。
segmentを反映させた数値をとりたいので、いろいろ試しているのですが
うまくいきません。 (><)

もし可能でしたら、アドバイスいただけますでしょうか??

==========================================================================
GetReport()の引数に"segment As String,"を加えて
中身に以下3行を書き加えてみると、
取得される数値は、segmentを使わない場合と同様のものが出てきてしまいます。

If segment <> "" Then
url = url & "&segment=" & UrlEncodeUtf8(segment)
End If
==========================================================================

どうぞ、よろしくお願いします。

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/toshiyuki_saito/20091020/1255995932