goo.glで短縮URLを取得するVBAマクロ | 初心者備忘録
何年か前にHPで「goo.glで短縮URLを取得する」マクロを紹介しました。 人力検索はてなに「長い複数のURLを一度に短縮する方法はないでしょうか」という質問があり、上記記事へのリンクが貼られていたのですが、質問者さんの環境では実行できていないようでした。 私の方でも試してみたのですが、たしかに短縮URLが取得できなくなっています。 そこで、通信時のレスポンスを調べてみると、403エラー(Daily Limit for Unauthenticated Use Exceeded. Continued use requires signup.)が返ってきていました。 非承認時の上限超えのようです。いつの間にかURL Shortener APIもAPIキーが必要になっていたみたいですね。 ならば話は簡単で、APIキーを含めてリクエストを投げてやれば良さそうです。 Google APIキーの取得
Office 2007/2010・リボンのカスタマイズ 初心者備忘録
2015/06/30 追記： URL Shortener APIもAPIキーが必要になったようです。キーの取得方法はコチラの記事で解説しています。 Google URL Shortener APIを使って短縮URLを取得するコードです。 APIキーの利用が推奨されているので、キーをお持ちの場合はurl部分を変更してください。 Option Explicit Public Sub Sample() Debug.Print GetShortenedLinkGoogl("http://www.ka-net.org/") End Sub Public Function GetShortenedLinkGoogl(ByVal target As String) As String 'Google URL Shortenerで短縮URL取得 Dim dat As Variant Dim ret As
Google URL Shortener gets an API
When we launched Google’s URL shortener externally back in September, there was no accompanying API to allow people to integrate goo.gl into their applications and web pages. However, we said that we were working on one, and today we're happy to announce that we’ve launched the goo.gl API in Google Code Labs. The documentation can be found on the Google Code site, with example code in the Getting
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
