{"id":6996,"date":"2016-05-06T15:27:25","date_gmt":"2016-05-06T06:27:25","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=6996"},"modified":"2016-05-06T15:27:25","modified_gmt":"2016-05-06T06:27:25","slug":"instagram-api%e3%82%92vba%e3%81%8b%e3%82%89%e5%91%bc%e3%81%b3%e5%87%ba%e3%81%97%e3%81%a6%e3%81%bf%e3%82%8b%e3%80%82","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=6996","title":{"rendered":"Instagram API\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3057\u3066\u307f\u308b\u3002"},"content":{"rendered":"

\u6700\u8fd1\u753b\u50cf\u5171\u6709\u7cfb\u306eSNS\u3001Instagram<\/a>(\u30a4\u30f3\u30b9\u30bf\u30b0\u30e9\u30e0)\u3092\u4f7f\u3044\u59cb\u3081\u307e\u3057\u305f\u3002<\/p>\n

\u3053\u306e\u30b5\u30fc\u30d3\u30b9\u3082\u4ed6\u306eSNS\u3068\u540c\u69d8\u306bAPI<\/a>\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u3055\u3063\u305d\u304fVBA\u304b\u3089<\/span>\u4f7f\u3063\u3066\u307f\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

Client ID\u4ed6\u306e\u53d6\u5f97<\/h4>\n

API\u3092\u5229\u7528\u3059\u308b\u306b\u306fClient ID\u3084Client Secret\u3068\u3044\u3063\u305f\u60c5\u5831\u304c\u5fc5\u8981\u306b\u306a\u308b\u306e\u3067\u3001\u307e\u305a\u306f\u958b\u767a\u8005\u5411\u3051\u30b5\u30a4\u30c8<\/a>\u304b\u3089\u5fc5\u8981\u306a\u60c5\u5831\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002<\/p>\n

    \n
  1. \u300cManage Clients<\/span>\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u3001Web\u30b5\u30a4\u30c8\u306eURL\u3084\u96fb\u8a71\u756a\u53f7\u3068\u8a00\u3063\u305f\u9805\u76ee\u3092\u5165\u529b\u3057\u3001\u300cSign up<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"InstagramAPI_01\"<\/p>\n

  2. Manage Clients\u753b\u9762\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u300cRegister a New Client<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"InstagramAPI_02\"<\/p>\n

  3. \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u540d\u306a\u3069\u306e\u9805\u76ee\u3092\u5165\u529b\u3057\u3001\u300cRegister<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n

    \"InstagramAPI_03\"<\/p>\n

  4. \u767b\u9332\u304c\u7121\u4e8b\u306b\u7d42\u308f\u308b\u3068\u3001Client ID\u3084Client Secret\u304c\u8868\u793a\u3055\u308c\u308b\u306e\u3067\u3001\u30e1\u30e2\u5e33\u306b\u3067\u3082\u63a7\u3048\u3066\u304a\u304d\u307e\u3059\u3002<\/li>\n

    \"InstagramAPI_04\"\n<\/ol>\n

    VBA\u304b\u3089\u306e\u547c\u3073\u51fa\u3057<\/h4>\n

    \u6e96\u5099\u304c\u3067\u304d\u305f\u3089\u3001\u3044\u3088\u3044\u3088API\u306e\u547c\u3073\u51fa\u3057\u3067\u3059\u3002
    \nInstagram\u306eAPI\u3082    Microsoft Graph<\/a>\u306a\u3069\u306eAPI\u3068\u540c\u69d8\u3001<\/p>\n

    code(authorization)\u53d6\u5f97
    \n\u2193
    \naccess token\u53d6\u5f97
    \n\u2193
    \n\u30a8\u30f3\u30c9\u30dd\u30a4\u30f3\u30c8\u306b\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u6295\u3052\u3066\u7d50\u679c\u3092\u53d6\u5f97<\/p>\n

    \u3068\u3044\u3063\u305f\u5229\u7528\u624b\u9806\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002
    \n\u4e0b\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u300c\/users\/self\/media\/recent\u300d\u306b\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u6295\u3052\u3001\u8fd4\u3063\u3066\u304d\u305f\u7d50\u679c\u304b\u3089\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u3060\u3051\u3092\u6307\u5b9a\u30d5\u30a9\u30eb\u30c0\u30fc\u306b\u4fdd\u5b58\u3059\u308b\u51e6\u7406\u3092\u884c\u3044\u307e\u3059\u3002<\/p>\n

    Option Explicit\r\n\r\nPublic Sub SampleInstagramAPI()\r\n'\u30b5\u30f3\u30d7\u30eb - Instagram API\u547c\u3073\u51fa\u3057\r\n'\u203b ScriptControl\u3092\u4f7f\u3063\u3066\u3044\u308b\u305f\u3081\u300132\u30d3\u30c3\u30c8\u74b0\u5883\u306e\u307f\u5bfe\u5fdc\r\n'\u203b \u30ea\u30c0\u30a4\u30ec\u30af\u30c8 URI\u3092localhost\u306b\u3057\u3066\u3044\u308b\u5834\u5408\u306f\u3001\u30ed\u30fc\u30ab\u30eb\u30b5\u30fc\u30d0\u30fc(XAMPP\u4ed6)\u306e\u8d77\u52d5\u304c\u5fc5\u8981\u306a\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002\r\n  Dim url_auth As String\r\n  Dim url_token As String\r\n  Dim url_api As String\r\n  Dim url As String\r\n  Dim q As String\r\n  Dim code As String\r\n  Dim js As String\r\n  Dim access_token As String\r\n  Dim dat As Variant\r\n  Dim ary As Variant, ary2 As Variant\r\n  Dim item As Object, items As Object\r\n  Dim images As Object\r\n  Dim fol As String\r\n  Dim file As String\r\n  Dim v As Variant\r\n  Dim i As Long\r\n  Dim data, [type], standard_resolution 'JSON\u30d1\u30fc\u30b9\u7528\u30c0\u30df\u30fc\r\n  Const READYSTATE_COMPLETE = 4\r\n  \r\n  '**********************************************************************\r\n  '\u30af\u30e9\u30a4\u30a2\u30f3\u30c8 ID, \u30af\u30e9\u30a4\u30a2\u30f3\u30c8 \u30b7\u30fc\u30af\u30ec\u30c3\u30c8, \u30ea\u30c0\u30a4\u30ec\u30af\u30c8 URI\r\n  Const client_id As String = "(\u30af\u30e9\u30a4\u30a2\u30f3\u30c8 ID)"\r\n  Const client_secret As String = "(\u30af\u30e9\u30a4\u30a2\u30f3\u30c8 \u30b7\u30fc\u30af\u30ec\u30c3\u30c8)"\r\n  Const redirect_uri As String = "(\u30ea\u30c0\u30a4\u30ec\u30af\u30c8 URI)"\r\n  '**********************************************************************\r\n  \r\n  '\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58\u5148\u9078\u629e\r\n  With Application.FileDialog(msoFileDialogFolderPicker)\r\n    .Title = "\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58\u5148\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002"\r\n    .AllowMultiSelect = False\r\n    .InitialFileName = CreateObject("Shell.Application") _\r\n      .Namespace(0).Self.Path & Application.PathSeparator '\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\r\n    If .Show = True Then\r\n      fol = .SelectedItems(1)\r\n    Else\r\n      Exit Sub\r\n    End If\r\n  End With\r\n  fol = AddPathSeparator(fol)\r\n  \r\n  'authorization code\u53d6\u5f97\r\n  code = "" '\u521d\u671f\u5316\r\n  url_auth = "https:\/\/api.instagram.com\/oauth\/authorize\/?response_type=code" & _\r\n             "&redirect_uri=" & EncodeURL(redirect_uri) & _\r\n             "&client_id=" & client_id\r\n  With CreateObject("InternetExplorer.Application")\r\n    .Visible = True\r\n    .AddressBar = False\r\n    .MenuBar = False\r\n    .StatusBar = False\r\n    .Toolbar = False\r\n    .Width = 600\r\n    .Height = 480\r\n    .Navigate url_auth\r\n    While .ReadyState <> READYSTATE_COMPLETE Or _\r\n          .Busy = True Or _\r\n          (StrComp(Left(.LocationURL, Len(redirect_uri)), redirect_uri) <> 0)\r\n      DoEvents\r\n    Wend\r\n    q = .document.parentWindow.Location.Search\r\n    q = Mid(q, 2) '"?"\u524a\u9664\r\n    ary = Split(q, "&")\r\n    For i = LBound(ary) To UBound(ary)\r\n      ary2 = Split(ary(i), "=")\r\n      If LCase(ary2(0)) = "code" Then\r\n        code = ary2(1)\r\n        Exit For\r\n      End If\r\n    Next\r\n    .Quit\r\n  End With\r\n  If Len(Trim(code)) < 1 Then Exit Sub\r\n  \r\n  'access token\u53d6\u5f97\r\n  js = "": access_token = "" '\u521d\u671f\u5316\r\n  url_token = "https:\/\/api.instagram.com\/oauth\/access_token"\r\n  dat = "grant_type=authorization_code" & _\r\n        "&code=" & code & _\r\n        "&client_id=" & client_id & _\r\n        "&client_secret=" & client_secret & _\r\n        "&redirect_uri=" & EncodeURL(redirect_uri)\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "POST", url_token, False\r\n    .setRequestHeader "Content-Type", "application\/x-www-form-urlencoded"\r\n    .send dat\r\n    Select Case .Status\r\n      Case 200: js = .responseText\r\n    End Select\r\n  End With\r\n  If Len(Trim(js)) < 1 Then Exit Sub\r\n  js = "(" & js & ")"\r\n  With CreateObject("ScriptControl")\r\n    .Language = "JScript"\r\n    access_token = .CodeObject.eval(js).access_token\r\n  End With\r\n  If Len(Trim(access_token)) < 1 Then Exit Sub\r\n\r\n  'Instagram API\u3092\u547c\u3073\u51fa\u3057\u3066\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u4fdd\u5b58\r\n  js = "" '\u521d\u671f\u5316\r\n  url_api = "https:\/\/api.instagram.com\/v1\/users\/self\/media\/recent\/?access_token=" & access_token\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "GET", url_api, False\r\n    .send\r\n    Select Case .Status\r\n      Case 200: js = .responseText\r\n    End Select\r\n  End With\r\n  If Len(Trim(js)) < 1 Then Exit Sub\r\n  js = "(" & js & ")"\r\n  With CreateObject("ScriptControl")\r\n    .Language = "JScript"\r\n    Set items = .CodeObject.eval(js).data\r\n    For Each item In items\r\n      Select Case item.type\r\n        Case "image" '\u753b\u50cf\u306e\u307f\u51e6\u7406\r\n          Set images = item.images\r\n          url = images.standard_resolution.url\r\n          v = Split(url, "\/")\r\n          file = LCase(v(UBound(v)))\r\n          file = Left(file, InStr(file, ".jpg") + 3)\r\n          DownloadFile url, fol & file\r\n      End Select\r\n    Next\r\n  End With\r\n  \r\n  MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Sub DownloadFile(ByVal url As String, ByVal SaveFilePath As String)\r\n  Dim req As Object\r\n  Const adTypeBinary = 1\r\n  Const adSaveCreateOverWrite = 2\r\n  \r\n  Set req = Nothing '\u521d\u671f\u5316\r\n  Set req = CreateObject("WinHttp.WinHttpRequest.5.1")\r\n  If req Is Nothing Then Exit Sub\r\n  req.Open "GET", url, False\r\n  req.send\r\n  Select Case req.Status\r\n    Case 200\r\n      With CreateObject("ADODB.Stream")\r\n        .type = adTypeBinary\r\n        .Open\r\n        .Write req.responseBody\r\n        .SaveToFile SaveFilePath, adSaveCreateOverWrite\r\n        .Close\r\n      End With\r\n    Case Else\r\n      MsgBox "\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002" & vbCrLf & _\r\n             "\u30b9\u30c6\u30fc\u30bf\u30b9\u30b3\u30fc\u30c9\uff1a" & req.Status, _\r\n             vbCritical + vbSystemModal\r\n      Exit Sub\r\n  End Select\r\nEnd Sub\r\n\r\nPrivate Function EncodeURL(ByVal Target As String) As String\r\n'URL\u30a8\u30f3\u30b3\u30fc\u30c9\r\n  With CreateObject("ScriptControl")\r\n    .Language = "JScript"\r\n    EncodeURL = .CodeObject.encodeURIComponent(Target)\r\n  End With\r\nEnd Function\r\n\r\nPrivate Function AddPathSeparator(ByVal s As String) As String\r\n  If Right(s, 1) <> ChrW(92) Then s = s & ChrW(92)\r\n  AddPathSeparator = s\r\nEnd Function<\/pre>\n
    \u30b3\u30fc\u30c9\u306e\u5b9f\u884c<\/h4>\n
    \u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u4e0b\u8a18\u306e\u6d41\u308c\u3067\u51e6\u7406\u304c\u884c\u308f\u308c\u307e\u3059\u3002<\/p>\n
      \n
    1. \u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u3092\u4fdd\u5b58\u3059\u308b\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/li>\n
      \"InstagramAPI_05\"<\/p>\n
    2. Instagram\u306e\u8a8d\u8a3c\u753b\u9762\u304c\u8868\u793a\u3055\u308c\u308b\u306e\u3067\u3001\u30e6\u30fc\u30b6\u30fc\u30cd\u30fc\u30e0\u3068\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3057\u300c\u30ed\u30b0\u30a4\u30f3<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n
      \"InstagramAPI_06\"<\/p>\n
    3. \u627f\u8a8d\u753b\u9762\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u300cAuthorize<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/li>\n
      \"InstagramAPI_07\"<\/p>\n
    4. API\u547c\u3073\u51fa\u3057\u304c\u7121\u4e8b\u306b\u884c\u308f\u308c\u308b\u3068\u3001\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u304c1.\u3067\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u30fc\u306b\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3055\u308c\u307e\u3059\u3002<\/li>\n
      \"InstagramAPI_08\"\n<\/ol>\n
      \u304a\u308f\u308a\u306b<\/h4>\n
      \u4ee5\u524d\u306f\u597d\u304d\u306a\u30b9\u30b3\u30fc\u30d7\u3092\u8a2d\u5b9a\u3067\u304d\u305f\u3089\u3057\u3044\u306e\u3067\u3059\u304c\u3001\u73fe\u5728\u3067\u306fAPI\u306e\u547c\u3073\u51fa\u3057\u306f\u30b5\u30f3\u30c9\u30dc\u30c3\u30af\u30b9\u30e2\u30fc\u30c9\u3067\u884c\u308f\u308c\u3001\u4e00\u90e8\u5236\u9650\u304c\u639b\u304b\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
      \u30fbSandbox Mode – Instagram Developer Documentation<\/strong>
      \n      https:\/\/www.instagram.com\/developer\/sandbox\/<\/a><\/p>\n
      \u5be9\u67fb\u3092\u901a\u904e\u3059\u308c\u3070\u30e9\u30a4\u30d6\u30e2\u30fc\u30c9\u306b\u5207\u308a\u66ff\u3048\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u304c\u3001\u306a\u304b\u306a\u304b\u53b3\u3057\u3044\u5be9\u67fb\u306e\u3088\u3046\u3067\u3059\u306d\u3002<\/p>\n
      \u30fb\u8d85\u53b3\u3057\u3044 \u3010Instagram API \u3011\u306e\u5be9\u67fb\u57fa\u6e96 \u3092\u7ffb\u8a33\u3057\u3066\u307e\u3068\u3081\u3066\u307f\u305f<\/strong>
      \n      http:\/\/www.ie-kau.net\/entry\/2016\/01\/26\/%E8%B6%85%E5%8E%B3%E3%81%97%E3%81%84_%E3%80%90Instagram_API_%E3%80%91%E3%81%AE%E5%AF%A9%E6%9F%BB%E5%9F%BA%E6%BA%96_%E3%82%92%E7%BF%BB%E8%A8%B3%E3%81%97%E3%81%A6%E3%81%BE%E3%81%A8%E3%82%81%E3%81%A6%E3%81%BF<\/a><\/p>\n
      \u305f\u3060\u3001\u5236\u9650\u306f\u3042\u308c\u3069\u3042\u308b\u7a0b\u5ea6\u306e\u7bc4\u56f2\u3067\u3042\u308c\u3070API\u3092\u81ea\u7531\u306b\u547c\u3073\u51fa\u305b\u308b\u306e\u3067\u3001\u306a\u304b\u306a\u304b\u904a\u3073\u7532\u6590\u304c\u3042\u308b\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u6700\u8fd1\u753b\u50cf\u5171\u6709\u7cfb\u306eSNS\u3001Instagram(\u30a4\u30f3\u30b9\u30bf\u30b0\u30e9\u30e0)\u3092\u4f7f\u3044\u59cb\u3081\u307e\u3057\u305f\u3002 \u3053\u306e\u30b5\u30fc\u30d3\u30b9\u3082\u4ed6\u306eSNS\u3068\u540c\u69d8\u306bAPI\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u3055\u3063\u305d\u304fVBA\u304b\u3089\u4f7f\u3063\u3066\u307f\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002 Client ID\u4ed6\u306e\u53d6\u5f97 API\u3092 […]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[Instagram API\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3057\u3066\u307f\u308b]","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},"jetpack_post_was_ever_published":false},"categories":[4,48],"tags":[],"class_list":["post-6996","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t