現在、エクセルからLINEにメッセージを送信するアプリケーションを作成中です。
しかしながら、バッチファイル部分が完成している(つもり)ものの、呼び出すにあたり送信が行われない現象が発生しています。どなたかご教授ください…
<発生している問題>
コマンドプロンプトの画面は起動しているものの、実際に送信が行われていない。
※おそらく引数の受け渡しの問題ではないかと予想しております。
<問題のコード>
VB
1Dim obj 2Sub LineMes(Message As String) 3 Dim obj As IWshRuntimeLibrary.WshShell 4 Set obj = New IWshRuntimeLibrary.WshShell 5 'Message = "" + Message + "" 6 'Debug.Print Message 7 ret = obj.Run(ActiveWorkbook.Path + "\LineCommand2.bat " + "" + Message + "") 8End Sub
念のため、バッチファイルの中身も追加しておきます。
bat
1@echo off 2set KEY=<アクセストークン> 3set MASSAGE=%1 4curl -X POST -H "Authorization: Bearer %KEY%" -F "message=%MASSAGE%" https://notify-api.line.me/api/notify
一応、行ったエラーチェックの状況も記しておきます。
①バッチファイルをコマンドプロンプトから呼び出し、引数を渡して送信させる。 →成功
②バッチファイルをファイル名を指定して実行から呼び出し、引数を渡して送信させる。 →成功
どなた様かご教授のほどよろしくお願いします!
回答2件
あなたの回答
tips
プレビュー