Results 1 to 1 of 1

Thread: VBA xml to json problem
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Sep 2014
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)

    Default VBA xml to json problem


    I have a problem with the MSXML2.XMLHTTP object in VBA.
    I need to send a message in json but the auth token has double quotes in it. So in order for those double quotes to arrive in the message a backslash is used. Now by parsing the xml to Json the xmlhttp object adds an extra backslash.

    Basically I send this
    "Token token=\x22AAA\x22"

    And the server receives this
    "Token token=\\x22AAA\\x22"

    Sub cmdOAuth2_Click()
      Dim webServiceURL As String
      Dim actionType As String
      Dim targetWord As String
      Dim actionType2 As String
      Dim targetWord2 As String
      webServiceURL = ""
      actionType = "Accept"
      targetWord = "application/json"
      actionType2 = "Content-Type"
      targetWord2 = "application/json"
      actionType3 = "Host"
      targetWord3 = ""
      actionType4 = "Authorization"
      targetWord4 = "Token token=\x22AAA\x22"
      actionType5 = "Cookie"
      targetWord5 = " "
      With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", webServiceURL, False
        .setRequestHeader actionType, targetWord
        .setRequestHeader actionType2, targetWord2
        .setRequestHeader actionType3, targetWord3
        .setRequestHeader actionType4, targetWord4
        .setRequestHeader actionType5, targetWord5
        If .Status = 200 Then
          Debug.Print .responseText
          MsgBox .getAllResponseHeaders
          Debug.Print .Status & ": " & .statusText
        End If
      End With
    End Sub
    Last edited by Freeb0; Nov 30th, 2018 at 09:28 AM.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts