Sub TestAPI()
Dim objHTTP As Object
Dim result As String
Dim Xml As Variant
Dim Fs As FileSystemObject
Dim FileData() As Byte
Dim Arr() As String
Dim St As String
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "Authorization", "Bearer 3756320"
objHTTP.setRequestHeader "DEVELOPER_TOKEN", "NegtkJjSr7jcrQSdeI4Nzg"
objHTTP.setRequestHeader "CLIENT_CUSTOMER_ID", "328-664-6765"
'objHTTP.RequestBody "__rdxml", Xml
' Set Fs = New FileSystemObject
'Set Xml = Fs.OpenTextFile("C:\Users\ajkumar\Desktop\Shreedhar\New Text Document.xml")
'St = Xml.ReadAll
' "<fields>Id</fields>" & _
' "<predicates>" & _
"<field>Status</field>" & _
"<operator>IN</operator>" & _
"<values>ENABLED</values>" & _
"<values>PAUSED</values>" & _
"</predicates>" & _
' "<fields>CampaignId</fields>" & _
"<selector>" & _
"<fields>Impressions</fields>" & _
"<fields>Clicks</fields>" & _
"<fields>Cost</fields>" & _
"</selector>" & _
"<reportName>Account Performance</reportName>" & _
"<reportType>ACCOUNT_PERFORMANCE_REPORT </reportType>" & _
"<dateRangeType>LAST_7_DAYS</dateRangeType>" & _
"<downloadFormat>CSV</downloadFormat>" & _
"</reportDefinition>"
objHTTP.send St
result = objHTTP.responseText
Your guidance and help would be really helpful.