VBA MACを使って、JSONデータを HTTP POST で投げたい

Question

前提・実現したいこと

MAC版　VBAを使って、JSONデータを HTTP POST で投げたい

VBAを使って、HTTP通信の検証用コードを実装しています。
MacScript関数を使って、JSONデータをPOST送信する際に、「プロシージャの呼び出しまたは引数が無効です」
というエラーが発生してしまいます。
VBA　MACでJSONデータを上手くPOST送信する方法があれば、ご教示お願い致します。

該当のソースコード

    Dim command as string
    Dim url as string

    url = "http://test.xx"

    command = "do shell script ""curl -X POST -H 'Content-Type: application/json' -d '" + "{ ""testID"":""1"" }" + "' " + url + """"
    result = MacScript(command)

試したこと

VBAを使って、HTTP通信の検証用コードを実装しています。
MacScript関数を使って、jsonデータをPOST送信する際に、「プロシージャの呼び出しまたは引数が無効です」
というエラーが発生してしまいます。
色々試してみたところ、どうやら、JSONデータ内にダブルクオーテーションを使ってしまうと、エラーが発生するところまでは突き止めました。
"{ ""testID"":""1"" }"
だと、エラーが出ますが、
下記だとエラーは発生しませんでした。
"{ 'testID':'1' }"
ですが、シングルクオーテーションでは、パラメータとして不適切として、相手側に認識されてしまうため、
こちらも使うことができません。
この状況で、ダブルクオーテーションを使ってJSONデータをPOST送信することが可能でしょうか。
どなたか、ご存知の方、ご教示お願い致します。

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

エクセルバージョン　16.34
Office 365
Visual Basic for Applications 7.1

Answer 1

こちらのページを参考にすると「二重引用符を使う場合はバックスラッシュ文字を使ってエスケープ処理を行う必要がある」とのことです。

それを踏まえるとこうなると思いますが、いかがでしょうか。

    command = "do shell script ""curl -X POST -H 'Content-Type: application/json' -d '" + "{ \""testID\"":\""1\"" }" + "' " + url + """"

Comments

[Gmac]

ご返信ありがとうございます。
下記の記載で試してみたところ、
command = "do shell script ""curl -X POST -H 'Content-Type: application/json' -d '" + "{ \""testId\"":\""1\"" }" + "' " + url + """"

やはり、同様のエラーが発生していました。
command の中身をみてみると、バックスラッシュが文字列中にも入っていない様にも見えており、
もう少し調査が必要だと思いました。
"do shell script "curl -X POST -H 'Content-Type: application/json' -d '{ "testId":"1" }' httpxxxxxxx""

ただ頂いた情報は、とても参考になりましたので、こちらでも調査を進めてみたいと思います。

[Gmac]

今情報を集めていて、これかもと思っている部分がありました。
http のところで指定している、スラッシュにも、エスケープが必要かもしれないと思ってきました。
http://127.0.0.1
現在、この路線でも調査しています。

[Gmac]

色々試したのですが、やはり http 部分は、特に問題がなさそうでした。
可能性としては
このコードで使用している　string 型(command)に落としてしまうと、バックスラッシュが無くなってしまっている　可能性もあるかと感じています。

[ttyp03]

これでしょうか。
https://qiita.com/sampleb3/items/8ecc644b5bffcf800150
Macは持っていないので調べたことを提示するくらしかできないのですが。。。

[Gmac]

ありがとうございます。
頂いたURLの内容は、キーボードからの入力方法に関してですね。
こちらは、解決しております。　m(_ _)m
VBAエディタ上もバックスラッシュの文字が出ていることまでは確認しているのですが、
デバッガ上Stringの内容を確認すると、エスケープ文字が無くなっているので、文字データ変換する際に
問題が発生しているのかもと考えていました。。。

Answer 2

結局、VBAから、JSONデータをHTTP Postする事を諦め、
xlwingsを使って、Pythonを呼び出し、Python上からJSONをHTTP Postする方法を選択しました。

Answer 3

現状、試した事をメモしておきます
ダブルクオーテーションを使う際にはエスケープする必要があるとのことで、バックスラッシュを使用
下記の内容で実施しましたが、同様のエラーは発生しており、現状もまだ解決できていない状況です。
"{ ""testId"":""1"" }"
"{ ""testId"":""1"" }"

￥マークを使う事も試してみました。　String 文字列中にバックスラッシュが入りました。
もしかしたら、￥マークを使った解決策があるかもと考えて調査中です。
command = "do shell script ""curl -X POST -H 'Content-Type: application/json' -d '" + "{ ¥""testId¥"":¥""1¥"" }" + "' " + url + """"

"do shell script "curl -X POST -H 'Content-Type: application/json' -d '{ "testId":"1" }' http:xxxxx""
しかし、これでもエラーは解消しませんでした。。。

もう少し調査して、解決の兆しが見えないのであれば、他の通信方法も含めて検討する必要がありそうです。