{"id":5776,"date":"2015-06-30T11:09:09","date_gmt":"2015-06-30T02:09:09","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5776"},"modified":"2021-10-25T22:48:05","modified_gmt":"2021-10-25T13:48:05","slug":"goo-gl%e3%81%a7%e7%9f%ad%e7%b8%aeurl%e3%82%92%e5%8f%96%e5%be%97%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5776","title":{"rendered":"goo.gl\u3067\u77ed\u7e2eURL\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u4f55\u5e74\u304b\u524d\u306bHP\u3067\u300cgoo.gl\u3067\u77ed\u7e2eURL\u3092\u53d6\u5f97\u3059\u308b<\/a>\u300d\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u4eba\u529b\u691c\u7d22\u306f\u3066\u306a\u306b\u300c\u9577\u3044\u8907\u6570\u306eURL\u3092\u4e00\u5ea6\u306b\u77ed\u7e2e\u3059\u308b\u65b9\u6cd5\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b<\/a>\u300d\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308a\u3001\u4e0a\u8a18\u8a18\u4e8b\u3078\u306e\u30ea\u30f3\u30af\u304c\u8cbc\u3089\u308c\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u8cea\u554f\u8005\u3055\u3093\u306e\u74b0\u5883\u3067\u306f\u5b9f\u884c\u3067\u304d\u3066\u3044\u306a\u3044\u3088\u3046\u3067\u3057\u305f\u3002<\/p>\n

\u79c1\u306e\u65b9\u3067\u3082\u8a66\u3057\u3066\u307f\u305f\u306e\u3067\u3059\u304c\u3001\u305f\u3057\u304b\u306b\u77ed\u7e2eURL\u304c\u53d6\u5f97\u3067\u304d\u306a\u304f\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u305d\u3053\u3067\u3001\u901a\u4fe1\u6642\u306e\u30ec\u30b9\u30dd\u30f3\u30b9\u3092\u8abf\u3079\u3066\u307f\u308b\u3068\u3001403\u30a8\u30e9\u30fc(Daily Limit for Unauthenticated Use Exceeded. Continued use requires signup.<\/em>)\u304c\u8fd4\u3063\u3066\u304d\u3066\u3044\u307e\u3057\u305f\u3002
\n\u975e\u627f\u8a8d\u6642\u306e\u4e0a\u9650\u8d85\u3048\u306e\u3088\u3046\u3067\u3059\u3002\u3044\u3064\u306e\u9593\u306b\u304bURL Shortener API\u3082API\u30ad\u30fc\u304c\u5fc5\u8981<\/span>\u306b\u306a\u3063\u3066\u3044\u305f\u307f\u305f\u3044\u3067\u3059\u306d\u3002<\/p>\n

\u306a\u3089\u3070\u8a71\u306f\u7c21\u5358\u3067\u3001API\u30ad\u30fc\u3092\u542b\u3081\u3066\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u6295\u3052\u3066\u3084\u308c\u3070\u826f\u3055\u305d\u3046\u3067\u3059\u3002<\/p>\n

Google API\u30ad\u30fc\u306e\u53d6\u5f97\u65b9\u6cd5<\/h4>\n

\u203b \u8981Google \u30a2\u30ab\u30a6\u30f3\u30c8<\/span><\/p>\n

    \n
  1. Google \u30a2\u30ab\u30a6\u30f3\u30c8\u3067\u30ed\u30b0\u30a4\u30f3\u3057\u305f\u72b6\u614b\u3067\u300cGoogle Developers Console<\/a>\u300d\u306b\u30a2\u30af\u30bb\u30b9\u3057\u307e\u3059\u3002<\/li>\n
  2. \u300c\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u306e\u4f5c\u6210<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_01\"<\/a><\/p>\n

  3. \u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u540d\u3092\u9069\u5f53\u306b\u5165\u529b\u3057\u300c\u4f5c\u6210<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_02\"<\/a><\/p>\n

  4. \u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u304c\u4f5c\u6210\u3055\u308c\u305f\u3089\u300cAPI\u3068\u8a8d\u8a3c<\/span>\u300d\u304b\u3089\u300cAPI<\/span>\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_03\"<\/a><\/p>\n

  5. \u691c\u7d22\u30dc\u30c3\u30af\u30b9\u306b\u300cURL<\/span>\u300d\u3068\u5165\u529b\u3057\u3001\u30d2\u30c3\u30c8\u3057\u305f\u300cURL Shortener API<\/span>\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_04\"<\/a><\/p>\n

  6. URL Shortener API\u753b\u9762\u304c\u958b\u304b\u308c\u305f\u3089\u300cAPI\u3092\u6709\u52b9\u306b\u3059\u308b<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_05\"<\/a><\/p>\n

    \"GoogleURLShortenerAPI_VBA_06\"<\/a><\/p>\n

  7. API\u304c\u6709\u52b9\u306b\u306a\u3063\u305f\u3089\u300cAPI\u3068\u8a8d\u8a3c<\/span>\u300d\u304b\u3089\u300c\u8a8d\u8a3c\u60c5\u5831<\/span>\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_07\"<\/a><\/p>\n

  8. \u8a8d\u8a3c\u60c5\u5831\u753b\u9762\u304c\u958b\u304b\u308c\u305f\u3089\u300c\u516c\u958b API \u3078\u306e\u30a2\u30af\u30bb\u30b9<\/span>\u300d\u304b\u3089\u300c\u65b0\u3057\u3044\u30ad\u30fc\u3092\u4f5c\u6210<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_08\"<\/a><\/p>\n

  9. \u65b0\u3057\u3044\u30ad\u30fc\u306e\u4f5c\u6210\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u300c\u30d6\u30e9\u30a6\u30b6\u30ad\u30fc<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_09\"<\/a><\/p>\n

  10. \u30d6\u30e9\u30a6\u30b6\u30ad\u30fc\u306e\u4f5c\u6210\u3068\u8a31\u53ef\u5bfe\u8c61\u30ea\u30d5\u30a1\u30e9\u30fc\u306e\u8a2d\u5b9a\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u30c6\u30ad\u30b9\u30c8\u30a8\u30ea\u30a2\u3092\u7a7a\u6b04<\/span>\u306b\u3057\u305f\u307e\u307e\u300c\u4f5c\u6210<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_10\"<\/a><\/p>\n

  11. API\u30ad\u30fc\u304c\u4f5c\u6210\u3055\u308c\u305f\u3089\u3001\u8868\u793a\u3055\u308c\u305f\u300cAPI \u30ad\u30fc<\/span>\u300d\u3092\u30e1\u30e2\u5e33\u306b\u3067\u3082\u30b3\u30d4\u30fc\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/li>\n

    \"GoogleURLShortenerAPI_VBA_11\"<\/a>\n<\/ol>\n

    \u3053\u308c\u3067API\u30ad\u30fc\u3092\u5165\u624b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002
    \n\u3042\u3068\u306fVBA\u30b3\u30fc\u30c9(\u4e0a\u3067\u7d39\u4ecb\u3057\u3066\u3044\u308b\u8a18\u4e8b\u306e\u30b3\u30fc\u30c9\u304b\u3089\u82e5\u5e72\u5909\u66f4\u3057\u307e\u3057\u305f)\u306bAPI\u30ad\u30fc\u3092\u5165\u308c\u3066\u3084\u308c\u3070\u30de\u30af\u30ed\u5b8c\u6210\u3067\u3059\u3002<\/p>\n

    '\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\r\nPublic Function GetShortenURL(ByVal TargetURL As String) As String\r\n'Google URL Shortener API\u3092\u4f7f\u3063\u3066\u77ed\u7e2eURL\u3092\u53d6\u5f97\r\n  Dim dat As Variant\r\n  Dim js As String, ret As String\r\n  Dim d As Object, elm As Object\r\n  Const API_KEY As String = "(API\u30ad\u30fc)"\r\n  \r\n  js = "": ret = "" '\u521d\u671f\u5316\r\n  dat = "{""longUrl"": """ & TargetURL & """}"\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "POST", "https:\/\/www.googleapis.com\/urlshortener\/v1\/url?key=" & API_KEY, False\r\n    .SetRequestHeader "Content-Type", "application\/json"\r\n    .Send dat\r\n    Select Case .Status\r\n      Case 200: js = .ResponseText\r\n      Case Else: ret = "Error:" & .Status\r\n    End Select\r\n  End With\r\n  If Len(Trim(js)) > 0 Then\r\n    js = "(" & js & ")"\r\n    Set d = CreateObject("htmlfile")\r\n    Set elm = d.createElement("span")\r\n    elm.setAttribute "id", "result"\r\n    d.body.appendChild elm\r\n    d.parentWindow.execScript "document.getElementById('result').innerText=eval(" & js & ").id;"\r\n    ret = elm.innerText\r\n  End If\r\n  GetShortenURL = ret\r\nEnd Function<\/pre>\n
    \u4e0a\u8a18\u30b3\u30fc\u30c9\u306f\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u66f8\u304f\u3068\u3001\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4e0a\u304b\u3089\u3082\u547c\u3073\u51fa\u305b\u3066\u4fbf\u5229\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
    \"GoogleURLShortenerAPI_VBA_12\"<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\u4f55\u5e74\u304b\u524d\u306bHP\u3067\u300cgoo.gl\u3067\u77ed\u7e2eURL\u3092\u53d6\u5f97\u3059\u308b\u300d\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u3002 \u4eba\u529b\u691c\u7d22\u306f\u3066\u306a\u306b\u300c\u9577\u3044\u8907\u6570\u306eURL\u3092\u4e00\u5ea6\u306b\u77ed\u7e2e\u3059\u308b\u65b9\u6cd5\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\u300d\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308a\u3001\u4e0a\u8a18\u8a18\u4e8b\u3078\u306e\u30ea\u30f3\u30af\u304c\u8cbc\u3089\u308c\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u8cea\u554f\u8005\u3055\u3093 […]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"\u6614\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3092\u3061\u3087\u3063\u3068\u5909\u66f4\u3057\u307e\u3057\u305f\u3002 [goo.gl\u3067\u77ed\u7e2eURL\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49,58],"tags":[],"class_list":["post-5776","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","category-powerpoint"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1va","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5776","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5776"}],"version-history":[{"count":2,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5776\/revisions"}],"predecessor-version":[{"id":14217,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5776\/revisions\/14217"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7111"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5776"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5776"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5776"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}