VBAでJSONを送信したい。

Question

現状

VBAでAPIを動作させたいと思っています。
下記コードを起動したところ、送信結果は正常となるのですが、
送信したファイルの文字コードがUTF-8と認識されてしまいます。

実現したいこと

送信したファイルの文字コードをshift_jisになって欲しい。

発生している問題・エラーメッセージ

エラー自体は表示されません。
送信したファイルがUTF-8と認識されて、文字化けのデータが登録されます。

該当のソースコード

Sub btnPost_Click()
 
'リクエスト先のURL
Dim strBaseURL As String
strBaseURL = "---------------------------------------"

'APIトークン
Dim strToken As String
strToken = "---------------------------------------"

'CSVファイルパス
Dim strCSVFilePath As String
strCSVFilePath = "---------------------------------------"

'境界値（multipart/form-data用）
Dim strBoundary As String
strBoundary = "OGNmIIVqsa4T8ZFVDLZ1QpR-Cf2xK45"
    
With httpReq
    .Open bstrmethod:="POST", bstrUrl:=strBaseURL
    .SetRequestHeader "X-WB-apitoken", strToken
    .SetRequestHeader "Content-Type", "multipart/form-data; boundary=""" & strBoundary & """"
    
    Dim strParams
    strParams = vbCrLf
    strParams = strParams + "--" + strBoundary + vbCrLf
    strParams = strParams + "Content-Disposition: form-data; name=""json""" + vbCrLf
    strParams = strParams + "Content-Type: application/json; charset=shift_jis" + vbCrLf
    strParams = strParams + vbCrLf
    strParams = strParams + "--" + strBoundary + vbCrLf
    strParams = strParams + "Content-Disposition: form-data; name=""files[0]""; filename=""試験.csv""" + vbCrLf
    strParams = strParams + "Content-Type: text/csv; charset=shift_jis" + vbCrLf
    strParams = strParams + vbCrLf

    Dim objCSVStream As Variant
    Set objCSVStream = CreateObject("ADODB.Stream")
    With objCSVStream
        .Charset = "shift_jis"
        .Open
        .LoadFromFile = strCSVFilePath
        .Position = 0
        Do Until .EOS
            strParams = strParams + .ReadText()
        Loop
        .Close
    End With
    strParams = strParams + "--" + strBoundary + "--"
    .Send strParams
End With

Do While httpReq.readyState < 4
    DoEvents
Loop
Debug.Print httpReq.responseText, , "レスポンス結果"
    
End Sub

試したこと

文字コードが設定できる個所はshift_jisを設定してみました。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

JSONは基本的にUTF-8が前提でAPIサーバー側が特別に対応していないとどうしようもなくなってしまうので
ADODB.Stream使ってUTF-8に変換したJSONを送る方向で考えた方がいいと思う。