2018/04/01 ブログのテーマをcocoonに変更しました。

ExcelでLINEしてみたった

ExcelでLINEしてみましたー。アホですね。


オーカワ
メッセージを送る事しか出来ない欠陥プログラム

作成したプログラム

LINEのAPI Referenceを見ながら、なんとなく作ってみましたー

勿論公式ではExcelをサポートしていませんが、仕組みさえ分かってしまえば、簡単ですね。

ちなみに、JSONを扱う為に、VBA-JSONを使っています。

Sub Post()
Dim objXmlHttp As Object
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST", "https://api.line.me/v2/bot/message/push", False
Call objXmlHttp.setRequestHeader("Content-Type", "application/json")
Call objXmlHttp.setRequestHeader("Authorization", "Bearer ここにAPIキー")
Dim JsonObject As Object
Dim JsonMes As Object
Set JsonMes = New Dictionary
JsonMes.Add "type", "text"
JsonMes.Add "text", Range("A2").Value
Set JsonObject = New Dictionary
JsonObject.Add "to", "ここにUSER ID"
JsonObject.Add "messages", New Collection
JsonObject("messages").Add JsonMes
objXmlHttp.send JsonConverter.ConvertToJson(JsonObject)
Range("A2") = ""
End Sub

感想

いやーアホですね。

Excelだとこの辺が限界だと思います。

いや、出来たとしてもやりたくない

雑記

 

Excelだとこれ以上の機能の追加は難しいと思いますが、Google スプレッドシートなら簡単に出来ます。送受信が簡単に出来ますね。仕事さぼれるツールが作れるよ(小声)

もし本格的に仕事さぼりたい方は、スプレッドシートで作ってみましょう!!

この辺の記事を良く見れば作れると思います。

[GAS]全米が泣いた親不孝 LINE Botを作ってみた
どーも最近反抗期のオーカワ(@okawa_compass)です。以前親に生存確認を送るBOTを作りました。 IFTTTとLINE Notiftを使い、毎朝8:00に元気ですと送信するBOTでした。 まぁ速攻でバレたんです
【GAS】クックパッドのレシピを返信してくれるLINE Botを作ってみた。
当ブログの読者様から、リクエストがありましたので作ってみましたー。 いつもブログで勉強させていただいてます!(初心者でもできるように解説してくれているのが。とてもありがたいです)クックパッドレシピをLineBotで返す方法を模索し

オーカワ
さぼってなんぼ

参考

いつもお世話になっております。

VBA-tools/VBA-JSON
JSON conversion and parsing for VBA. Contribute to VBA-JSON development by creating an account on GitHub.
ドキュメント

 

The following two tabs change content below.

オーカワ

社畜!!いつもはTwitterにいるよ。フォローちてね♪ オーカワ専用のブログも作りました。よろしくお願いします。

コメント