How can I convert a Curl command into a WinHttpRequest object in vba excel

Question

Given a Curl command :

curl https://URL
-u xxxxxxxxxxxxxxxxxxxxxx:
-X POST
-F "source_file=@/tmp/my.doc"
-F "DoSomething=checkit"

The expected result is a Json string. How can this be used in VBA Excel macro utilizing a "WinHttp.WinHttpRequest.5.1" object. Is the file "my.doc" transfered by name or by a Byte array ?

I manged to convers a simple Curl command:

curl https://URL
-u xxxxxxxxxxxxxxxxxxxxxx:

into the following code which works fine.

With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "GET", URL, False
    .SetCredentials "xxxxxxxxxxxxxxxxxxxxxx", "", 0
    .send
    If .Status <> 200 Then
        If MsgBox(.responseText, vbOKOnly + vbCritical, "Error") = vbOK Then
            Exit Sub
        End If
    Else
        ss = .responseBody
        BodyData = StrConv(ss, vbUnicode)
        Set Json = JsonConverter.ParseJson(BodyData)
    End If

The same is needed for the above Curl command. Please help .

I have tried with the following code : – ckosh Jul 13 '20 at 06:04 — ckosh, Jul 13 '20 at 06:04

score 0 · Answer 1 · answered Jul 12 '20 at 15:12

0

You'll need to modify and add a few more parameters for the POST request. Try adapting using this example, and let us know what the errors are if you get any.

POST request with win http

answered Jul 12 '20 at 15:12

Peyter

474
3
14

I tryed implementing the above Curl code in VBA Excel with the following code : – ckosh Jul 13 '20 at 05:50

How can I convert a Curl command into a WinHttpRequest object in vba excel

1 Answers1