如何使用VBA从ACCESS向pipedrive发送JSON PUT请求？

Question

我使用此转换器：https://github.com/VBA-tools/VBA-JSON

我可以获取json数据，但我有一些文本字段，其中有一些文本可以更新pipedrive中的数据

Dim jsonUpload As String

Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")


jsonUpload = txt_pipedrive_id & ";"

jsonUpload = jsonUpload & txt_firma & ";"

jsonUpload = jsonUpload & txt_ansprechpartner & ";"

jsonUpload = jsonUpload & txt_adresse & ";"

jsonUpload = jsonUpload & txt_email & ";"

jsonUpload = jsonUpload & txt_telefon

Dim Json As Object
Set Json = JsonConverter.ConvertToJson(MyRequest.responseText)

MyRequest.Open "put", "https://api.pipedrive.com/v1/persons/" & txt_pipedrive_id & "?api_token={api_token}"
MyRequest.Send.Json