【VBA】【GAS】VBAで送信し、webアプリケーションで処理させたい。

#エラー内容
VBAよりエンコードしたパラメータをURLとして送信し、web applicationで処理させようしましたが、web applicationでは受け取っていないようで、結果が反映されませんでした。

ブラウザで、ログアウトした状態で、手打ちでURLにパラメータをつけ、Enterを押すと実行されました。
web application
https://script.google.com/macros/s/AKfycbyRCFy7U-46fr4vspgKG3MN6mcJFC--xkS-9Dn17LI/exec?param1=127
出力確認用spreadsheet
https://docs.google.com/spreadsheets/d/1re7ovZ9pwvWAvIdqc9JSbWePNoyBcXMytUw6nof_G98/edit#gid=0

具体的な原因がわからず困ってしまいました。
どうかご教授ください。よろしくおねがいします。

#VBAのソース
Sub save()
'HTTPリクエストオブジェクト
Dim objXmlHttp As Object
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")

Dim url As Variant
Dim param As Variant
url = "https://script.google.com/macros/s/AKfycbyRCFy7U-46fr4vspgKG3MN6mcJFC--xkS-9Dn17LI/exec?"
param = "param1%3D127%26param2%3D154%26param3%3D522%26param4%3D112"
'POSTでオープン
objXmlHttp.Open "POST", url, False
'httpヘッダの設定（POSTの場合は必要らしい）

Call objXmlHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
'パラメータの送信
objXmlHttp.send (param)
End Sub

#Google apps scriptのソース
function doGet(e) {
var ss = SpreadsheetApp.openById('1amTyICKW0PliX3tJ8urebHNR4Cjn4H0uOB6ehOdwI3g');
var sheet = ss.getSheetByName('シート1');

// 引数のeからパラメータを取得
var param1 = e.parameter.param1;
var param2 = e.parameter.param2;
var param3 = e.parameter.param3;
var param4 = e.parameter.param4;
sheet.getRange(1,1).setValue(param1);
sheet.getRange(1,2).setValue(param2);
sheet.getRange(1,3).setValue(param3);
sheet.getRange(1,4).setValue(param4);
}

行動規範の内容に同意します

回答3件

ベストアンサー

Campanula_11さんへ

はじめまして。
VBAはよくわかりませんが、GASへパラメータを送信して処理をさせる場合、POSTで受けるならdoPost({{パラメータ}})、GETで受けるならdoGet({{パラメータ}})で記述すると良いです。

ちなみに処理速度を考慮すると、GAS側の記述は以下のようにしたほうが良いです。

// 引数のeからパラメータを取得 
var param = [[
              e.parameter.param1,
              e.parameter.param2,
              e.parameter.param3,
              e.parameter.param4
            ]]; 
sheet.getRange(1,1,param.length,param[0].length).setValues(param);

投稿2016/05/30 16:23