{"id":6427,"date":"2015-12-03T16:49:53","date_gmt":"2015-12-03T07:49:53","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=6427"},"modified":"2016-10-25T22:07:14","modified_gmt":"2016-10-25T13:07:14","slug":"microsoft-graph%e3%82%92vba%e3%81%8b%e3%82%89%e5%91%bc%e3%81%b3%e5%87%ba%e3%81%97%e3%81%a6onenote%e3%81%ae%e3%83%9a%e3%83%bc%e3%82%b8%e5%86%85%e5%ae%b9%e3%82%92%e5%8f%96%e5%be%97%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=6427","title":{"rendered":"Microsoft Graph\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3057\u3066OneNote\u306e\u30da\u30fc\u30b8\u5185\u5bb9\u3092\u53d6\u5f97\u3059\u308b"},"content":{"rendered":"

\u4ee5\u524d\u66f8\u3044\u305f\u8a18\u4e8b\u300cOffice 365 unified API\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3059<\/a>\u300d\u3067\u3001VBA\u304b\u3089Office 365 unified API\u3092\u547c\u3073\u51fa\u3059\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001\u300cOffice Dev Center – Office 365 unified API (PREVIEW)<\/a>\u300d\u306b\u4e0b\u8a18\u8a18\u8ff0\u304c\u3042\u308b\u3088\u3046\u306b\u3001Office 365 unified API\u306f\u300cMicrosoft Graph<\/span>\u300d\u306b\u5909\u66f4\u3055\u308c\u307e\u3057\u305f\u3002<\/p>\n

Office 365 unified API is now Microsoft Graph.
\nGo to http:\/\/graph.microsoft.com to learn more.<\/p><\/blockquote>\n

Microsoft Graph\u3068\u3044\u3048\u3070\u3001\u540c\u540d\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u304c\u6614\u306eOffice\u88fd\u54c1\u306b\u7d44\u307f\u8fbc\u307e\u308c\u3066\u3044\u305f\u306e\u3067\u4f55\u3084\u3089\u3084\u3084\u3053\u3057\u3044\u611f\u3058\u304c\u3057\u307e\u3059\u304c\u3001\u305d\u3061\u3089\u306f\u3068\u3063\u304f\u306b\u5ec3\u308c\u305f\u30c4\u30fc\u30eb\u306b\u306a\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u6700\u65e9\u3069\u3046\u3067\u3082\u826f\u3044\u306e\u3067\u3057\u3087\u3046\u3002<\/p>\n

\u3055\u3066\u3001\u65b0\u3057\u304f\u306a\u3063\u305funified API\u3001\u3082\u3068\u3044Microsoft Graph\u3092\u8a66\u3059\u306b\u5f53\u305f\u308a\u3001Connect (); \/\/ 2015 \u3067\u300cExcel REST API<\/a>\u300d\u306b\u95a2\u3059\u308b\u30bb\u30c3\u30b7\u30e7\u30f3\u304c\u3042\u3063\u305f\u306e\u3067\u3001\u3055\u3063\u305d\u304f\u3053\u308c\u3092\u8a66\u3057\u3066\u307f\u3088\u3046\u3068\u601d\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9<\/a>\u306b<\/p>\n

The Excel REST APIs are not yet released.<\/p><\/blockquote>\n

\u3068\u3042\u308b\u3088\u3046\u306b\u3001\u307e\u3060\u8a66\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f(2015\/12\/1 \u6642\u70b9)\u3002<\/p>\n

\u306a\u3089\u3070\u4ed5\u65b9\u304c\u306a\u3044\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u3001\u4ee3\u308f\u308a\u306bOneNote API<\/span>\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3059\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u4e0b\u6e96\u5099<\/h4>\n

API\u3092\u5229\u7528\u3059\u308b\u305f\u3081\u306b\u3001Azure AD\u306e\u8a2d\u5b9a\u3084\u3089\u30af\u30e9\u30a4\u30a2\u30f3\u30c8 ID\u306e\u53d6\u5f97\u3084\u3089\u304c\u5fc5\u8981\u306b\u306a\u308b\u306e\u3067\u3059\u304c\u3001\u4f5c\u696d\u624b\u9806\u306f\u300cOffice 365 unified API\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3059<\/a>\u300d\u3067\u66f8\u3044\u3066\u3044\u308b\u3053\u3068\u3068\u307b\u307c\u540c\u3058\u306a\u306e\u3067\u3001\u3053\u3053\u3067\u306f\u5272\u611b\u3057\u307e\u3059\u3002<\/p>\n

    \n
  1. \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u7a2e\u985e\uff1a\u30cd\u30a4\u30c6\u30a3\u30d6 \u30af\u30e9\u30a4\u30a2\u30f3\u30c8 \u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3<\/li>\n
  2. \u30ea\u30c0\u30a4\u30ec\u30af\u30c8 URI\uff1ahttp:\/\/localhost\/onenote<\/li>\n
  3. \u4ed6\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306b\u5bfe\u3059\u308b\u30a2\u30af\u30bb\u30b9\u8a31\u53ef\uff1aMicrosoft Graph<\/li>\n
  4. \u30c7\u30ea\u30b2\u30fc\u30c8\u3055\u308c\u305f\u30a2\u30af\u30bb\u30b9\u8a31\u53ef\uff1aRead and write notebooks that the user can access (preview)<\/li>\n<\/ol>\n

    \u53d6\u5f97\u3059\u308bOneNote\u306e\u30da\u30fc\u30b8<\/h4>\n

    \u4eca\u56de\u306f\u4e0b\u56f3\u306e\u3088\u3046\u306b\u3001OneDrive\u306b\u7f6e\u3044\u3066\u3042\u308b\u300cSampleNote\u300d\u306e\u4e2d\u306b\u3042\u308b\u300cSamplePage<\/span>\u300d\u306e\u5185\u5bb9\u3092\u53d6\u5f97\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n

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

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

    VBA\u30b3\u30fc\u30c9<\/h4>\n

    \u3055\u3063\u305d\u304f\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u304c\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002
    \n\u57fa\u672c\u7684\u306a\u3068\u3053\u308d\u306f    Office 365 unified API\u306e\u547c\u3073\u51fa\u3057<\/a>\u3068\u307b\u307c\u540c\u3058\u3067\u3059\u306d\u3002<\/p>\n

    authorization code\u53d6\u5f97
    \n\u2193
    \naccess token\u53d6\u5f97
    \n\u2193
    \nhttps:\/\/graph.microsoft.com\/beta\/me\/notes\/pages \u306b\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u6295\u3052\u3066\u30da\u30fc\u30b8ID\u53d6\u5f97
    \n\u2193
    \n\u53d6\u5f97\u3057\u305f\u30da\u30fc\u30b8ID\u3092\u3082\u3068\u306b https:\/\/graph.microsoft.com\/beta\/me\/notes\/pages\/(page_id)\/content \u306b\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u6295\u3052\u3066\u30da\u30fc\u30b8\u5185\u5bb9\u53d6\u5f97<\/p>\n

    \u3068\u3044\u3063\u305f\u6d41\u308c\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

    Option Explicit\r\n\r\nPublic Sub SampleOneNoteAPI()\r\n'\u30b5\u30f3\u30d7\u30eb - Microsoft Graph(OneNote)\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 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 page_id As String\r\n  Dim content As String\r\n  Dim dat As Variant\r\n  Dim ary As Variant, ary2 As Variant\r\n  Dim req As Object\r\n  Dim pages As Object\r\n  Dim page As Object\r\n  Dim i As Long\r\n  Dim value, title, id 'JSON\u30d1\u30fc\u30b9\u7528\u30c0\u30df\u30fc\r\n  Const READYSTATE_COMPLETE = 4\r\n  \r\n  '***********************************\r\n  '\u203b \u8981\u5909\u66f4\r\n  '***********************************\r\n  Const client_id As String = "(\u30af\u30e9\u30a4\u30a2\u30f3\u30c8 ID)" '\u30af\u30e9\u30a4\u30a2\u30f3\u30c8 ID\r\n  Const redirect_uri As String = "http:\/\/localhost\/onenote" '\u30ea\u30c0\u30a4\u30ec\u30af\u30c8 URI\r\n  Const page_title As String = "SamplePage" '\u53d6\u5f97\u3059\u308b\u30da\u30fc\u30b8\u306e\u30bf\u30a4\u30c8\u30eb\r\n  '***********************************\r\n  \r\n  'authorization code\u53d6\u5f97\r\n  code = "" '\u521d\u671f\u5316\r\n  url_auth = "https:\/\/login.microsoftonline.com\/common\/oauth2\/authorize?response_type=code" & _\r\n             "&redirect_uri=" & EncodeURL(redirect_uri) & _\r\n             "&client_id=" & client_id & _\r\n             "&resource=" & EncodeURL("https:\/\/graph.microsoft.com\/")\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  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:\/\/login.microsoftonline.com\/common\/oauth2\/token"\r\n  dat = "grant_type=authorization_code" & _\r\n        "&code=" & code & _\r\n        "&client_id=" & client_id & _\r\n        "&redirect_uri=" & EncodeURL(redirect_uri)\r\n  Set req = CreateObject("WinHttp.WinHttpRequest.5.1")\r\n  With req\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  'Microsoft Graph\u547c\u3073\u51fa\u3057\r\n  js = "": page_id = "": content = "" '\u521d\u671f\u5316\r\n  url_api = "https:\/\/graph.microsoft.com\/beta\/me\/notes\/pages"\r\n  With req\r\n    .Open "GET", url_api, False\r\n    .setRequestHeader "Authorization", "Bearer " & access_token\r\n    .send\r\n    Select Case .Status\r\n      Case 200: js = .responseText\r\n      Case Else: Debug.Print .responseText\r\n    End Select\r\n    If Len(Trim(js)) < 1 Then Exit Sub\r\n    \r\n    '\u6307\u5b9a\u3057\u305f\u30da\u30fc\u30b8\u306eID\u53d6\u5f97\r\n    js = "(" & js & ")"\r\n    With CreateObject("ScriptControl")\r\n      .Language = "JScript"\r\n      Set pages = .CodeObject.eval(js).value\r\n      For Each page In pages\r\n        If page.title = page_title Then\r\n          page_id = page.id\r\n          Exit For\r\n        End If\r\n      Next\r\n    End With\r\n    If Len(Trim(page_id)) < 1 Then Exit Sub\r\n    \r\n    '\u6307\u5b9a\u3057\u305f\u30da\u30fc\u30b8\u306e\u5185\u5bb9(html)\u53d6\u5f97\r\n    url_api = "https:\/\/graph.microsoft.com\/beta\/me\/notes\/pages\/" & page_id & "\/content"\r\n    .Open "GET", url_api, False\r\n    .setRequestHeader "Authorization", "Bearer " & access_token\r\n    .send\r\n    Select Case .Status\r\n      Case 200: content = .responseText\r\n      Case Else: Debug.Print .responseText\r\n    End Select\r\n    If Len(Trim(content)) < 1 Then Exit Sub\r\n  End With\r\n  \r\n  '\u53d6\u5f97\u3057\u305f\u30da\u30fc\u30b8\u5185\u5bb9\u3092IE\u3067\u8868\u793a\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 "about:blank"\r\n    While .ReadyState <> READYSTATE_COMPLETE Or _\r\n          .Busy = True\r\n      DoEvents\r\n    Wend\r\n    With .document\r\n      .Open\r\n      .Write content\r\n      .Close\r\n    End With\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 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<\/pre>\n
    \u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u8a8d\u8a3c\u753b\u9762\u304c\u8868\u793a\u3055\u308c\u3001<\/p>\n
    \"MicrosoftGraph_OneNote_VBA_03\"<\/a><\/p>\n
    \u554f\u984c\u306a\u304fAPI\u306e\u547c\u3073\u51fa\u3057\u304c\u884c\u308f\u308c\u308b\u3068\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u53d6\u5f97\u3057\u305f\u30da\u30fc\u30b8\u5185\u5bb9\u304cIE\u4e0a\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
    \"MicrosoftGraph_OneNote_VBA_04\"<\/a><\/p>\n
    \u4eca\u56de\u306f\u5358\u306b\u30da\u30fc\u30b8\u5185\u5bb9\u3092\u53d6\u5f97\u3057\u305f\u3060\u3051\u3067\u3059\u304c\u3001\u30a2\u30c3\u30d7\u30c7\u30fc\u30c8\u7528\u306eAPI<\/a>\u3082\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u30da\u30fc\u30b8\u5185\u5bb9\u3092\u5916\u90e8\u304b\u3089\u66f4\u65b0\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u305d\u3046\u3067\u3059\u3002<\/p>\n
    \u307e\u3060Beta\u7248\u306a\u306e\u3067\u3001\u4eca\u5f8c\u4ed5\u69d8\u304c\u5909\u66f4\u3055\u308c\u308b\u53ef\u80fd\u6027\u306f\u3042\u308a\u307e\u3059\u304c\u3001OneNote\u306e\u30ce\u30fc\u30c8\u3084\u30da\u30fc\u30b8\u3092\u5916\u304b\u3089\u30a2\u30ec\u30b3\u30ec\u3067\u304d\u308b\u306e\u306f\u4e2d\u3005\u9762\u767d\u305d\u3046\u3067\u3059\u306d\uff01<\/p>\n
    \u53c2\u8003Web\u30da\u30fc\u30b8<\/h4>\n