Здравствуйте. Есть такой пример из интернета:
| Код |
|---|
Sub dollar()
Dim textHTTP As Object
Dim URL, Txt, Kurs As String
Dim posUSD, k As String
URL = "https://www.cbr.ru"
Set textHTTP = CreateObject("MSXML2.XMLHTTP")
textHTTP.Open "GET", URL, False
textHTTP.Send
'Ждем загрузку сайта статус 200
If textHTTP.Status = 200 Then
'Получаем текст сайта в переменной txt
Txt = textHTTP.responseText
'Находим позицию строки USD
posUSD = InStr(1, Txt, "USD")
k = InStr(posUSD, Txt, "right mono-num")
Kurs = Mid(Txt, k + 16, 8)
MsgBox "Куср доллара ЦБ: " & Kurs
Else
MsgBox "Нет отклика с сайта"
End If
Set textHTTP = Nothing
End Sub
|
И вот он выдает всегда один и тот же результат. Даже, если я меняю URL, меняю значения переменных. Повторное открытие книги, с уже измененным URL не помогает. Это какое-то кэширование? Как его обойти?
