Сам не программист, пытаюсь получить инфо с вэб-сервиса ЦБ РФ, переделал код из сети, получилось так:
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
| Sub BankPapersXML()
Dim sURL As String
Dim sEnv As String ', sEnv0 As String
Dim xmlhtp As Object
Set xmlhtp = CreateObject("MSXML2.XMLHTTP")
Dim xmlDoc As New DOMDocument60
Dim DT As Date
DT = Date - 1
sURL = "https://cbr.ru/secinfo/secinfo.asmx?op=BankPapersXML"
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 & " <BankPapersXML xmnls=""http://web.cbr.ru"">"
sEnv = sEnv & " <OnDate>DT</OnDate>"
sEnv = sEnv & " </BankPapersXML>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
Length = Len("<soap:Body><BankPapersXML xmnls=""http://web.cbr.ru""><OnDate>DT</OnDate></BankPapersXML></soap:Body>")
With xmlhtp
.Open "Post", sURL, False
.SetRequestHeader "Host", "www.cbr.ru"
.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
.SetRequestHeader "Content-Length", Length
.SetRequestHeader "SOAPAction", "http://web.cbr.ru/BankPapersXML"
.Send sEnv
'xmlDoc.SetProperty "ProhibitDTD", False
xmlDoc.LoadXML xmlhtp.ResponseText
ActiveWorkbook.Sheets(1).Range("A2") = xmlhtp.ResponseText
'xmlDoc.Save ThisWorkbook.Path & "\WebQueryResult.xml"
MsgBox .ResponseText
End With
Set xmlhtp = Nothing
End Sub |
|
С сервера приходит такой ответ:
| XML |
1
2
3
4
5
| <?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><IDRepoRUBXMLResponse
xmlns="http://web.cbr.ru/"><IDRepoRUBXMLResult><Error
xmlns="">NotFound</Error></IDRepoRUBXMLResult></IDRepoRUBXMLResponse></soap:Body></soap:Envelope> |
|
Думаю где-то тупая ошибка, сам найти не могу.
(
