mikhael02
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Возникла следующая проблема: перестал работать макрос для запроса сегодняшнего курса доллара с cbr.ru( Грешу на то, что на cbr опять что-то поменяли в XML-таблице, но сам разобраться не в силах, поэтому прошу помощи...
Код:
Dim Warning As Integer
Warning = MsgBox("Ввести курс доллара вручную?", vbYesNo + vbQuestion)
If Warning = vbNo Then
Dim CBR As String
Dim oHTTP As Object
Dim htmlcode, outstr As String
Dim d, m, y As Integer
d = Day(Date)
m = Month(Date)
y = Year(Date)
CBR = "http://www.cbr.ru/currency_base/daily.aspX?C_month=" & m & "&C_year=" & y & _
"&date_req=" & d & "%2F" & m & "%2F" & y
On Error Resume Next
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.Open "GET", CBR, False
oHTTP.Send
htmlcode = oHTTP.responseText
outstr = Mid(htmlcode, InStr(1, htmlcode, "USD") + 87, 7) ' Profit!
Set oHTTP = Nothing
outstr = Replace(outstr, ",", ".")
Range("C11") = outstr
Else
Range("C11").Value = InputBox("Введите курс USD: ")
End If
|
|
Всего записей: 6 | Зарегистр. 06-10-2010 | Отправлено: 14:11 06-10-2010 | Исправлено: mikhael02, 14:15 06-10-2010 |
|
у меня есть макрос со следующим кодом: 
