{"id":593,"date":"2025-03-18T00:33:36","date_gmt":"2025-03-17T15:33:36","guid":{"rendered":"https:\/\/hajidai.com\/excel\/2025\/03\/excel%e3%83%9e%e3%82%b9%e3%82%bf%e3%83%bc%e3%81%b8%e3%81%ae%e9%81%93-web-api%e6%b4%bb%e7%94%a8%e3%81%a7%e6%a5%ad%e5%8b%99%e5%8a%b9%e7%8e%87%e3%82%92%e5%8a%87%e7%9a%84%e3%81%ab%e5%90%91%e4%b8%8a\/"},"modified":"2025-03-18T00:33:36","modified_gmt":"2025-03-17T15:33:36","slug":"excel%e3%83%9e%e3%82%b9%e3%82%bf%e3%83%bc%e3%81%b8%e3%81%ae%e9%81%93-web-api%e6%b4%bb%e7%94%a8%e3%81%a7%e6%a5%ad%e5%8b%99%e5%8a%b9%e7%8e%87%e3%82%92%e5%8a%87%e7%9a%84%e3%81%ab%e5%90%91%e4%b8%8a","status":"publish","type":"post","link":"https:\/\/hajidai.com\/excel\/2025\/03\/excel%e3%83%9e%e3%82%b9%e3%82%bf%e3%83%bc%e3%81%b8%e3%81%ae%e9%81%93-web-api%e6%b4%bb%e7%94%a8%e3%81%a7%e6%a5%ad%e5%8b%99%e5%8a%b9%e7%8e%87%e3%82%92%e5%8a%87%e7%9a%84%e3%81%ab%e5%90%91%e4%b8%8a\/","title":{"rendered":"Excel\u30de\u30b9\u30bf\u30fc\u3078\u306e\u9053: Web API\u6d3b\u7528\u3067\u696d\u52d9\u52b9\u7387\u3092\u5287\u7684\u306b\u5411\u4e0a\u3055\u305b\u308b\u9ad8\u5ea6\u30c6\u30af\u30cb\u30c3\u30af"},"content":{"rendered":"

Excel\u4e0a\u7d1a\u8005\u5411\u3051\u30bb\u30ad\u30e5\u30a2\u306aWeb API\u5b9f\u88c5\u30c6\u30af\u30cb\u30c3\u30af<\/h2>\n

\u4e0a\u7d1a\u8005\u5411\u3051\u30de\u30af\u30ed\u30b3\u30fc\u30c9\uff1aWeb API\u3092\u5229\u7528\u3057\u305f\u30c7\u30fc\u30bf\u53d6\u5f97<\/h3>\n

“`vba
\nSub GetDataFromAPI()
\n Dim xhr As Object
\n Dim apiUrl As String
\n Dim response As String<\/p>\n

apiUrl = “https:\/\/api.example.com\/data”<\/p>\n

Set xhr = CreateObject(“MSXML2.XMLHTTP”)
\n xhr.Open “GET”, apiUrl, False
\n xhr.Send<\/p>\n

If xhr.Status = 200 Then
\n response = xhr.responseText
\n ‘ \u3053\u3053\u3067response\u3092\u51e6\u7406\u3057\u3066\u30bb\u30eb\u306b\u5165\u529b\u3059\u308b
\n Sheet1.Range(“A1”).Value = response
\n Else
\n MsgBox “\u30a8\u30e9\u30fc: ” & xhr.Status & ” ” & xhr.statusText
\n End If<\/p>\n

Set xhr = Nothing
\nEnd Sub
\n“`<\/p>\n

1. \u30bb\u30ad\u30e5\u30a2\u306aWeb API\u5b9f\u88c5\u306e\u91cd\u8981\u6027<\/h3>\n

Excel\u30de\u30af\u30ed\u3092\u4f7f\u7528\u3057\u3066Web API\u3092\u5b9f\u88c5\u3059\u308b\u969b\u3001\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u306f\u6700\u91cd\u8981\u4e8b\u9805\u3067\u3059\u3002\u30c7\u30fc\u30bf\u306e\u6a5f\u5bc6\u6027\u3092\u4fdd\u8b77\u3057\u3001\u4e0d\u6b63\u30a2\u30af\u30bb\u30b9\u3092\u9632\u3050\u3053\u3068\u304c\u6c42\u3081\u3089\u308c\u307e\u3059\u3002API key\u306e\u4f7f\u7528\u3084HTTPS\u901a\u4fe1\u306e\u63a1\u7528\u306a\u3069\u3001\u57fa\u672c\u7684\u306a\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u5bfe\u7b56\u306f\u5fc5\u9808\u3067\u3059\u3002\u3055\u3089\u306b\u3001\u53d7\u4fe1\u3057\u305f\u30c7\u30fc\u30bf\u306e\u691c\u8a3c\u3084\u30b5\u30cb\u30bf\u30a4\u30ba\uff08\u4e0d\u6b63\u306a\u6587\u5b57\u5217\u306e\u9664\u53bb\uff09\u3092\u884c\u3046\u3053\u3068\u3067\u3001\u60aa\u610f\u306e\u3042\u308b\u30b3\u30fc\u30c9\u306e\u5b9f\u884c\u3092\u9632\u3050\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n

2. \u30a8\u30e9\u30fc\u30cf\u30f3\u30c9\u30ea\u30f3\u30b0\u3068\u30ed\u30b0\u8a18\u9332<\/h3>\n

Web API\u3068\u306e\u901a\u4fe1\u3067\u306f\u3001\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30a8\u30e9\u30fc\u3084\u30b5\u30fc\u30d0\u30fc\u30a8\u30e9\u30fc\u306a\u3069\u3001\u69d8\u3005\u306a\u554f\u984c\u304c\u767a\u751f\u3059\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002\u3053\u308c\u3089\u306e\u30a8\u30e9\u30fc\u3092\u9069\u5207\u306b\u51e6\u7406\u3057\u3001\u30e6\u30fc\u30b6\u30fc\u306b\u5206\u304b\u308a\u3084\u3059\u3044\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3059\u308b\u3053\u3068\u304c\u91cd\u8981\u3067\u3059\u3002\u307e\u305f\u3001\u30a8\u30e9\u30fc\u30ed\u30b0\u3092\u8a18\u9332\u3059\u308b\u3053\u3068\u3067\u3001\u554f\u984c\u306e\u8ffd\u8de1\u3068\u89e3\u6c7a\u304c\u5bb9\u6613\u306b\u306a\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30a8\u30e9\u30fc\u30cf\u30f3\u30c9\u30ea\u30f3\u30b0\u3092\u542b\u3080Excel\u30de\u30af\u30ed\u306e\u4f8b\u3067\u3059\uff1a<\/p>\n

“`vba
\nSub APICallWithErrorHandling()
\n On Error GoTo ErrorHandler<\/p>\n

‘ API\u547c\u3073\u51fa\u3057\u306e\u30b3\u30fc\u30c9<\/p>\n

Exit Sub<\/p>\n

ErrorHandler:
\n MsgBox “\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f: ” & Err.Description
\n ‘ \u30ed\u30b0\u306b\u30a8\u30e9\u30fc\u3092\u8a18\u9332
\n Sheet1.Range(“A1”).Value = “\u30a8\u30e9\u30fc: ” & Now & ” – ” & Err.Description
\nEnd Sub
\n“`<\/p>\n

3. \u30c7\u30fc\u30bf\u306e\u52a0\u5de5\u3068\u8868\u793a<\/h3>\n

Web API\u304b\u3089\u53d6\u5f97\u3057\u305f\u30c7\u30fc\u30bf\u306f\u3001\u591a\u304f\u306e\u5834\u5408JSON\u3084XML\u5f62\u5f0f\u3067\u63d0\u4f9b\u3055\u308c\u307e\u3059\u3002\u3053\u308c\u3089\u306e\u30c7\u30fc\u30bf\u3092\u9069\u5207\u306b\u89e3\u6790\u3057\u3001Excel\u306e\u30bb\u30eb\u306b\u5206\u304b\u308a\u3084\u3059\u304f\u8868\u793a\u3059\u308b\u3053\u3068\u304c\u91cd\u8981\u3067\u3059\u3002VBA\u306b\u306f\u6a19\u6e96\u3067JSON\u30d1\u30fc\u30b5\u30fc\u304c\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u305f\u3081\u3001\u5916\u90e8\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u4f7f\u7528\u3059\u308b\u304b\u3001\u7c21\u5358\u306a\u89e3\u6790\u95a2\u6570\u3092\u81ea\u4f5c\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

\u4ee5\u4e0b\u306f\u3001\u7c21\u5358\u306aJSON\u30c7\u30fc\u30bf\u3092\u89e3\u6790\u3057\u3066Excel\u30b7\u30fc\u30c8\u306b\u8868\u793a\u3059\u308b\u30de\u30af\u30ed\u306e\u4f8b\u3067\u3059\uff1a<\/p>\n

“`vba
\nSub ParseAndDisplayJSON()
\n Dim jsonString As String
\n Dim dict As Object<\/p>\n

jsonString = “{“”name””: “”John””, “”age””: 30}”<\/p>\n

Set dict = ParseJson(jsonString)<\/p>\n

Sheet1.Range(“A1”).Value = “\u540d\u524d”
\n Sheet1.Range(“B1”).Value = dict(“name”)
\n Sheet1.Range(“A2”).Value = “\u5e74\u9f62”
\n Sheet1.Range(“B2”).Value = dict(“age”)
\nEnd Sub<\/p>\n

Function ParseJson(jsonString As String) As Object
\n ‘ \u7c21\u5358\u306aJSON\u30d1\u30fc\u30b5\u30fc\u306e\u5b9f\u88c5
\n ‘ \u6ce8\u610f: \u3053\u306e\u95a2\u6570\u306f\u975e\u5e38\u306b\u57fa\u672c\u7684\u306a\u5b9f\u88c5\u3067\u3001\u8907\u96d1\u306aJSON\u306b\u306f\u5bfe\u5fdc\u3057\u3066\u3044\u307e\u305b\u3093
\n Set ParseJson = CreateObject(“Scripting.Dictionary”)<\/p>\n

jsonString = Mid(jsonString, 2, Len(jsonString) – 2)
\n Dim pairs() As String
\n pairs = Split(jsonString, “,”)<\/p>\n

Dim i As Long
\n For i = 0 To UBound(pairs)
\n Dim pair() As String
\n pair = Split(pairs(i), “:”)
\n ParseJson(Trim(Replace(pair(0), “”””, “”))) = Trim(Replace(pair(1), “”””, “”))
\n Next i
\nEnd Function
\n“`<\/p>\n

\u3053\u308c\u3089\u306e\u30c6\u30af\u30cb\u30c3\u30af\u3092\u7d44\u307f\u5408\u308f\u305b\u308b\u3053\u3068\u3067\u3001Excel\u30de\u30af\u30ed\u3092\u4f7f\u7528\u3057\u3066\u30bb\u30ad\u30e5\u30a2\u3067\u52b9\u7387\u7684\u306aWeb API\u5b9f\u88c5\u304c\u53ef\u80fd\u306b\u306a\u308a\u307e\u3059\u3002\u305f\u3060\u3057\u3001\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u30ea\u30b9\u30af\u3092\u5e38\u306b\u610f\u8b58\u3057\u3001\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u5c02\u9580\u5bb6\u306e\u30a2\u30c9\u30d0\u30a4\u30b9\u3092\u6c42\u3081\u308b\u3053\u3068\u304c\u91cd\u8981\u3067\u3059\u3002Excel\u30de\u30af\u30ed\u306e\u529b\u3092\u6700\u5927\u9650\u306b\u6d3b\u7528\u3057\u3001\u696d\u52d9\u52b9\u7387\u3092\u5927\u5e45\u306b\u5411\u4e0a\u3055\u305b\u307e\u3057\u3087\u3046\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

Excel\u4e0a\u7d1a\u8005\u5411\u3051\u30bb\u30ad\u30e5\u30a2\u306aWeb API\u5b9f\u88c5\u30c6\u30af\u30cb\u30c3\u30af \u4e0a\u7d1a\u8005\u5411\u3051\u30de\u30af\u30ed\u30b3\u30fc\u30c9\uff1aWeb API\u3092\u5229\u7528\u3057\u305f\u30c7\u30fc\u30bf\u53d6\u5f97 #8220;`vba Sub GetDataFromAPI() Dim xhr As Object<\/p>\n","protected":false},"author":2,"featured_media":592,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[5],"tags":[],"class_list":["post-593","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-advanced"],"_links":{"self":[{"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/posts\/593","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/comments?post=593"}],"version-history":[{"count":0,"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/posts\/593\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/media\/592"}],"wp:attachment":[{"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/media?parent=593"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/categories?post=593"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/hajidai.com\/excel\/wp-json\/wp\/v2\/tags?post=593"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}