{"id":13446,"date":"2021-01-18T12:00:02","date_gmt":"2021-01-18T03:00:02","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=13446"},"modified":"2021-01-23T22:40:19","modified_gmt":"2021-01-23T13:40:19","slug":"power-automate%e7%b5%8c%e7%94%b1%e3%81%a7twitter%e3%81%ab%e6%8a%95%e7%a8%bf%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=13446","title":{"rendered":"Power Automate\u7d4c\u7531\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

Hiro( @mofumofu_dance<\/a> )\u3055\u3093\u304cVBA\u3068Power Automate\u9023\u643a\u3068\u3044\u3046\u3001\u9762\u767d\u3044\u3053\u3068\u3092\u3055\u308c\u3066\u3044\u307e\u3057\u305f\uff01<\/p>\n

\"\"<\/div>
MoreBeerMorePower<\/div><\/div>
\"\"<\/figure>
Excel VBA \u304b\u3089 Microsoft Teams \u306b \u30e1\u30c3\u30bb\u30fc\u30b8\u6295\u7a3f - MoreBeerMorePower<\/div>
https:\/\/mofumofupower.hatenablog.com\/entry\/2021\/01\/14\/165340<\/div>
\u3084\u3063\u3066\u307f\u305f\u7cfb\u3067\u3059\u3002 \u6700\u8fd1Excel VBA\u3092\u52c9\u5f37\u3057\u59cb\u3081\u305f\u306e\u3067\u3059\u304c\u3001\u8208\u5473\u306e\u3042\u308b\u9818\u57df\u3058\u3083\u306a\u3044\u3068\u899a\u3048\u306a\u3044\u306a\u30fc\u3068\u601d\u3063\u305f\u306e\u3067\u3001\u307e\u305a\u306fMicrosoft Teams \u3084 Web API \u3092\u7d61\u3081\u3066\u307f\u3088\u3046\u3068\u601d\u3063\u305f\u306e\u304c\u304d\u3063\u304b\u3051\u3067\u3059\u3002 tonari-it.com \u3053\u3061\u3089\u306e\u30d6\u30ed\u30b0\u3092\u53c2\u8003\u306b\u3057\u3066\u3001Excel VBA \u3067\u3001Microsoft Teams \u3078\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u6295\u7a3f\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002 Excel VBA\u3059\u3052\u30fc\u306aTeams\u306bAdaptive Card\u9001\u4fe1\u3067\u304d\u305f pic.twitter.com\/J8QhRCfSc2\u2014 Hiro (@mofumofu_dance) 2021\u5e741\u670814\u65e5 Excel \u5074\u3067\u306f\u30bb\u30eb\u306e\u5165\u529b\u3092\u3082\u3068\u2026<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

\u3053\u308c\u306f\u697d\u3057\u305d\u3046\uff01\u8a66\u3059\u3057\u304b\u306a\u3044\uff01<\/span><\/p>\n

\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u3055\u3063\u305d\u304f\u3084\u3063\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

HTTP\u8981\u6c42\u3067\u53d7\u3051\u53d6\u3063\u305f\u6587\u5b57\u5217\u3092\u30c4\u30a4\u30fc\u30c8\u3059\u308bPower Automate\u30d5\u30ed\u30fc<\/h4>\n

\u307e\u305a\u306fPower Automate\u306e\u30d5\u30ed\u30fc\u3067\u3059\u3002<\/p>\n

    \n
  1. \u81ea\u52d5\u5316\u3057\u305f\u30af\u30e9\u30a6\u30c9 \u30d5\u30ed\u30fc\u3067\u300cHTTP \u8981\u6c42\u306e\u53d7\u4fe1\u6642<\/span>\u300d\u3092\u30c8\u30ea\u30ac\u30fc\u306b\u3057\u307e\u3059\u3002<\/li>\n

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

  2. method\u306f\u300cPOST<\/span>\u300d\u3001\u6587\u5b57\u5217\u3055\u3048\u53d7\u3051\u53d6\u308c\u308c\u3070\u826f\u3044\u306e\u3067\u300c\u8981\u6c42\u672c\u6587\u306e JSON \u30b9\u30ad\u30fc\u30de\u300d\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306a\u5f62\u306b\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/li>\n
    {\r\n    "type": "object",\r\n    "properties": {\r\n        "message": {\r\n            "type": "string"\r\n        }\r\n    }\r\n}<\/pre>\n
    \"\"<\/a><\/p>\n
  3. \u65b0\u3057\u3044\u30b9\u30c6\u30c3\u30d7\u304b\u3089\u300c\u4f5c\u6210<\/span>\u300d\u3092\u8ffd\u52a0\u3057\u3001\u624b\u98062.\u3067\u8a2d\u5b9a\u3057\u305f\u300cmessage\u300d\u3092\u5165\u529b\u5024\u3068\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  4. \u65b0\u3057\u3044\u30b9\u30c6\u30c3\u30d7\u304b\u3089\u300c\u30c4\u30a4\u30fc\u30c8\u306e\u6295\u7a3f<\/span>\u300d\u3092\u8ffd\u52a0\u3057\u3001\u300c\u30c4\u30a4\u30fc\u30c8 \u30c6\u30ad\u30b9\u30c8\u300d\u3092\u624b\u98063.\u306e\u5024\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/li>\n
    \"\"<\/a><\/p>\n
  5. \u30d5\u30ed\u30fc\u3092\u4fdd\u5b58\u3059\u308b\u3068\u3001\u300cHTTP \u8981\u6c42\u306e\u53d7\u4fe1\u6642\u300d\u306bURL\u304c\u8868\u793a\u3055\u308c\u308b\u306e\u3067\u3001\u30e1\u30e2\u5e33\u7b49\u306b\u30b3\u30d4\u30fc\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/li>\n
    \"\"<\/a>\n<\/ol>\n
    Power Automate\u306eURL\u306bPOST\u3059\u308b\u30de\u30af\u30ed<\/h4>\n
    \u6b21\u306f\u30de\u30af\u30ed\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n
    Option Explicit\r\n\r\nPublic Sub Sample()\r\n  PostPowerAutomate _\r\n    "\u3053\u3093\u306b\u3061\u306f\u3002" & vbCrLf & _\r\n    "Power Automate\u304b\u3089\u306e\u6295\u7a3f\u30c6\u30b9\u30c8\u3067\u3059\u3002"\r\nEnd Sub\r\n\r\nPrivate Sub PostPowerAutomate(ByVal message As String)\r\n  Dim dat As Variant\r\n  Const url As String = "(Power Automate\u306e\u30d5\u30ed\u30fc\u4f5c\u6210\u6642\u306b\u53d6\u5f97\u3057\u305fURL)"\r\n  \r\n  message = Replace(message, """", "\\""")\r\n  dat = "{""message"":""" & message & """}"\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "POST", url, False\r\n    .setRequestHeader "Content-Type", "application\/json"\r\n    .send dat\r\n    Select Case .Status\r\n      Case 200, 202: Debug.Print "done."\r\n      Case Else: Debug.Print .Status, .responseText\r\n    End Select\r\n  End With\r\nEnd Sub<\/pre>\n
    \u6307\u5b9a\u3057\u305fURL\u306bJSON\u5f62\u5f0f\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092POST\u3059\u308b\u3060\u3051\u306e\u5358\u7d14\u306a\u30b3\u30fc\u30c9\u3067\u3059\u3002
    \n\u6ce8\u610f\u70b9\u3068\u3057\u3066\u3001\u30ea\u30af\u30a8\u30b9\u30c8\u30d8\u30c3\u30c0\u30fc\u306b\u300cContent-Type: application\/json\u300d\u3092\u542b\u3081\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n
    \n
    \n