Excel/Access VBA から Slack へメッセージを投稿する方法

ExcelやAccess のVBA を使ってSlackへ投稿するサンプルをメモ。 誰が、何をし、どうなったか？、特にエラー通知をいち早く知りたい時があったので先日実装してみました。 VBA から Slackへ投稿するサンプル' Slackに投稿する主関数 'Private Function PostSlack(ByVal channel As String, ByVal webhookUrl As String, ByVal msgText As String) Dim sJson As String Dim httpReq As Object ' JSON ' sJson = "{" sJson = sJson & " ""channel"": """ & channel & """," sJson = sJson & " ""text"": """ & msgText & """" s