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
![Excel/Access VBA から Slack へメッセージを投稿する方法](https://cdn-ak-scissors.b.st-hatena.com/image/square/97576d34a70c977ae7f25d8ce6f909342ceb4477/height=288;version=1;width=512/https%3A%2F%2Fblogger.googleusercontent.com%2Fimg%2Fb%2FR29vZ2xl%2FAVvXsEgQwIavXwcjZl2QvY9RSN-tmKwsBy3Dobi2GYWZaL6Jl7yAreCTOTi4pMBcij14w3nwJiw9fNBkUxjCAde5J9m17uQpL1pyKJAuMsj11xXCIFOF7LCtKHyRdXuzABFUOqJU-UCROfw9oli0%2Fw1200-h630-p-k-no-nu%2FExcel%2B2013.png)