VBAのHTTP Requestで"Content-Type", "multipart/form-data"の時にテキストをPOSTするにはどうやったらいいでしょうか？？

Question

タイトルの通り、ファイルをPOSTする文献は見つかるのですが、テキストをPOSTする方法が見つからず、Webの知識もなく、さっぱり分かりません。
どうしたらいいでしょうか？

curlやpythonだとこんな感じのコードになります

curl -F "800003=Dwight Schrute" \

 -F "800007=Partner" \

 -F "api=" \

 -H "Authorization:Basic YOUR_API_KEY_GOES_HERE" \

 https://www.ragic.com/demo/sales/1/3

import requests

headers = {
    'Authorization': 'Basic YOUR_API_KEY_GOES_HERE',
}

files = {
    '800003': (None, 'Dwight Schrute'),
    '800007': (None, 'Partner'),
    'api': (None, ''),
}

response = requests.post('https://www.ragic.com/demo/sales/1/3', headers=headers, files=files)

試したVBAコード

`TargetはChangeイベントで返ってきたセルです
`PostDataが実際にPOSTしたいテキストのkey=valueペアになります。

 postData = """1000297=""" & Target.Value & "doFormula=true&doDefaultValue=true&doLinkLoad=true&api"
            
            With httpReq
                .Open "POST", "https://www.ragic.com/****/forms5/1/" & ragicID
                Call .setRequestHeader("Authorization", "Basic THR*************==")
                Call .setRequestHeader("Content-Type", "multipart/form-data")
                .send (postData)
'
                Do While .readyState < 4
                    DoEvents
                Loop
                
                Debug.Print .Status
                Debug.Print .responseText
            End With

ステータスコードは200で、何も送ってない通信だけをするPOSTになり、「成功したよ！」レスポンスも返ってきますが、何も起こりません（Ragicはデータベースなのですが、1000297というIDがふられたfieldが更新されない)。

Answer 1

Fiddler でも使って、curlやpythonと送ったリクエストの内容を比較してみては。

Comments

[退会済みユーザー]

ありがとうございます。
すみません、使ったことなかったので試してみようとしてはまってしまいました。。。
https://teratail.com/questions/338468?modal=q-comp

Answer 2

postDataが異常な形式ですが、本当にそれが送りたいデータなら、コードはあってます。

データがおかしいのでは？

Comments

[退会済みユーザー]

確認いただきありがとうございます。
トリプルクォテーションと、文字列の&がなかったですね。。。
試しに
`"1000297=777788889999&doFormula=true&doDefaultValue=true&doLinkLoad=true&api"`
とやってみたのですがうまくいきませんでした。
英語=true
はクエリの条件で、
Pythonでは下記でPOSTが成功します。
```
files={'1000297':(None,"777788889999"),#Intで""なしでも可
'doFormula':(None,'true'),
'doDefaultValue':(None,'true'),
'doLinkLoad':(None,'true'),
'api': (None,'')}
```

[otn]

ファイルをポストするのじゃ無くてテキストをポストしたいという質問だったのでは？
Pythonのコードはファイルのポストですが、質問と何か関係あるのでしょうか？

[退会済みユーザー]

Call .setRequestHeader("Content-Type", "multipart/form-data")
POSTにはこのContent Typeが指定されています。

本当にファイルの場合はこんな感じになるのですが、
fileName = 'demo01.xlsx'
fileDataBinary = open(fileName, 'rb').read()
files = {'uploadFile': (fileName, fileDataBinary, XLSX_MIMETYPE)}

データベースなのでテキストになります。

[退会済みユーザー]

テキスト、というよりstringを、と言った方がニュアンス的に正確かもしれません。

[otn]

ファイルとしてポストするんだけど、ファイルのデータはファイルから読むんじゃなくてDBから読むと言うことですか？

> ファイルをPOSTする文献は見つかるのですが、テキストをPOSTする方法が見つからず、
ファイルをPOSTする方法が分かっているなら、ファイルから読む部分をDBから読む処理に差し替えれば良いだけでしょう。

[退会済みユーザー]

"Content-Type", "multipart/form-data"
自分の理解にが自信がないのですが、このタイプはファイルだけでなくテキストもポストできると理解しています。
POSTなのでファイルは読みません。
DBの各セルにポストしている感じなので、ファイルではなくテキストになるということです。

テキストのフォームとしてPOSTしている？というイメージになるのでしょうか。

HTMLではこんな感じのようです。
```
<!-- Adding the parameter html means that api server returns html instead of default JSON -->

<form action="https://www.ragic.com/start/petstore/1?html&api" method="POST">

<!-- Put down the field id as the parameter name for each field to map them to a field on the Ragic form -->

<p>Item Id: <input type="text" name="1000001" /></p>

<p>Item Name: <input type="text" name="1000003" /></p>

<p>Item Price: <input type="text" name="1000005" /></p>

<!-- Selections work the same way, just pass the selection value as parameter value -->

<p>Item Category:

<input type="radio" name="1000002" value="Dog" /> Dog

<input type="radio" name="1000002" value="Cat" /> Cat

</p>

</form>
```

[otn]

DBから読むんじゃなくて、Pythonプログラムと同じく、プログラム中に埋め込んだ文字列リテラルをファイルデータの代わりにファイルとしてPOSTすると言うことであれば、さっきのコメントは下記に訂正です。

> ファイルをPOSTする文献は見つかるのですが、テキストをPOSTする方法が見つからず、
ファイルをPOSTする方法が分かっているなら、ファイルから読む部分を文字列リテラルに差し替えれば良いだけでしょう。

[otn]

今、上のコメントのHTMLの中を見ました。
それは Content-Type: application/x-www-form-urlencoded ですね。

[退会済みユーザー]

あ、その通りですね！
すみません、元のAPI Docを読み間違えて勘違いしていました。

[退会済みユーザー]

そうするとByte型に変換してPOSTすればいいだけですね。

[退会済みユーザー]

できました。ありがとうございます。自分一人では気づけなかったです。
エクセル好きの会社のみんなが喜びます。
これでDBのユーザー数もケチれます。
本当にありがとうございました。

Answer 3

otnさんありがとうございました。

postData = "1000297=" & Target.Value & "&doFormula=true&doDefaultValue=true&doLinkLoad=true&api"
Dim bpostData() As Byte
bpostData = StrConv(postData, vbFromUnicode)

            With httpReq
                .Open "POST", "https://www.ragic.com/****/forms5/1/" & ragicID
                Call .setRequestHeader("Authorization", "Basic THR*************==")
                Call .setRequestHeader("Content-Type",  "application/x-www-form-urlencoded")
                .send (bpostData)
'
                Do While .readyState < 4
                    DoEvents
                Loop

                Debug.Print .Status
                Debug.Print .responseText
            End With