I'm trying to use cells on the worksheet to create the "Post" send to an api web service.
Example: below is hardcoded with the xml.
I want to use the cell data on a worksheet to create the xml.
for the
reader.Send s
part



Dim reader As New MSXML2.ServerXMLHTTP60
reader.setOption 2, (reader.getOption(2) - SXH_SERVER_CERT_IGNORE_CERT_DATE_INVALID)
Dim s As String
reader.Open "POST", "https://dr01.dev-sap.ger.com:44310/sap/commerce/esrprice?sap-client=220", False, "XXXXX", "xxxxxxger"
reader.setRequestHeader "Accept", "application/xml"

s = "<?xml version=""1.0""?>" & _
"<EsrpPriceRequest>" & _
"<QuoteNumber>0030017523</QuoteNumber>" & _
"<AccountNumber>0800000713</AccountNumber>" & _
"<Items>" & _
"<Item>3BA56</Item>" & _
"<Item>1A005</Item>" & _
"<Item>1AC47</Item>" & _
"<Item>6K305</Item>" & _
"</Items>" & _
"</EsrpPriceRequest>"




Debug.Print s
reader.Send s


Do Until reader.ReadyState = 4
DoEvents
Loop '
If reader.Status = 200 Then
MsgBox (reader.responseText)
Else
MsgBox "Unable to get data."
End If