Hi All,
I have an inquiry about the WSDL in Excel VBA.
The target WSDL is https://www3.bcb.gov.br/wssgs/services/FachadaWSSGS
some help about this WSDL is in https://www3.bcb.gov.br/sgspub/JSP/s...hadaWSSGS.wsdl
other info about this WSDL is in https://www3.bcb.gov.br/sgspub/JSP/s...gsAjudaIng.jsp
I wrote a VBA macro to get a value for the code "3122" for the period "01/02/2014"
use this code need to enable MS XML in the reference of VBE.
Sub TSfind()
Dim sURL As String
Dim sEnv As String
Dim xmlhtp As New MSXML2.XMLHTTP
Dim xmlDoc As New DOMDocument
sURL = "https://www3.bcb.gov.br/wssgs/services/FachadaWSSGS"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & " <getValor xmlns=""https://www3.bcb.gov.br/wssgs/services/FachadaWSSGS"">"
sEnv = sEnv & " <in0>" & "3122" & "</in0>"
sEnv = sEnv & " <in1>" & "01/02/2014" & "</in1>"
sEnv = sEnv & " </getValor>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
With xmlhtp
.Open "post", sURL, False
.setRequestHeader "Host", "https://www3.bcb.gov.br/wssgs/services/FachadaWSSGS"
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", "https://www3.bcb.gov.br/wssgs/services/FachadaWSSGS/getValor"
.setRequestHeader "Accept-encoding", "zip"
.send sEnv
xmlDoc.LoadXML .responseText
cells(1,1)=xmlDoc.text
End With
End Function
but I tried many time to write code to get the list of the value from 01/01/2014 to 01/01/2015. I can't find the method.
I saw the website state I should use the method "getValoresSeriesXML". but I don't know how to handle the array in the soap envelope.
Would you help to advise some other method to do it? Much appreciated.
Bookmarks