Автор Александр Трофимов задал вопрос в разделе Другие языки и технологии
VBA: получать курс доллара из интернета в Excel и получил лучший ответ
Ответ от Ольга Константинова[гуру]
Sub GetDollar()
Dim sURI As String
Dim oHttp As Object
Dim htmlcode, outstr As String
Dim inpdate As Date
Dim d, m, y As Integer
inpdate = CDate(InputBox("Введите дату в формате ДД. ММ. ГГГГ", _
"Курс доллара", Date))
d = Format(inpdate, "dd")
m = Format(inpdate, "mm")
y = Format(inpdate, "yyyy")
sURI = "=" & M & "&C_year=" _
& y & "&date_req=" & d & "/" & M & "/" & y
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then
Exit Sub
End If
oHttp.Open "GET", sURI, False
oHttp.Send
htmlcode = oHttp.responseText
outstr = Mid(htmlcode, InStr(1, htmlcode, "USD") + 87, 7)
Set oHttp = Nothing
outstr = Replace(outstr, ",", ".")
ActiveCell.Value = outstr
End Sub
Создаешь модуль и копипуешь туда этот текст.
курс доллара к японской ене? уточни
на каком сайте ты обычно смотришь этот самый курс?
какой курс доллара в россии?
Курс доллара в России на сегодня
Курс доллара в России на сегодня (по данным банков) . Банк.
подробнее...
Подскажите как в excel поставить курс доллара в одной ячейке и, чтобы все значения во всех столбцах на него умножались.
Ставишь в ячейку А1 курс доллара.
В нужной ячейке пишешь
=
Затем щелкаешь мышкой на
подробнее...
Сколько сегодня стоит курс доллара в России?
Сколько сегодня стоит курс доллара в России?
==============================================
подробнее...
сколько стоит 1 евро и 1 доллар в рублях на 28.05.2014г?
Сколько стоит 1 евро и 1 доллар в рублях на 28.05. 2014 года?
-------------------------
подробнее...
Какой курс доллара в Беларусбанке?
ВОПРОС: Какой курс доллара в Беларусбанке?
--
ОТВЕТ
БЕЛАРУСБАНК
Курс
подробнее...
курс валют. Какой был курс доллара в Украине в 2008 году?
Какой был курс доллара в Украине в 2008 году?
Курс обмена Доллара США к Украинской
подробнее...
Подскажите, пожалуйста, кто знает, какой курс доллара в Черногории?
Курс доллара в Европе везде одинаков. Почасовую стоимость можно узнать на
подробнее...
Добрый вечер! Подскажите курс доллара в Чернигове?
КУРС ВАЛЮТ В ЧЕРНИГОВЕ НА 12.07.2015
Коммерческий курс валют рассчитывается на основании курса
подробнее...
сколько будит 31 тысяча долларов в рублях на сентябрь 2013 ?
Сколько будет 31 тысяча долларов в рублях на сентябрь 2013 года ?
Центральный банк
подробнее...
Как в Excel вставить текущую дату в ячейку при помощи сочетания клавиш?
Вставить текущую дату в Excel так:
Ctrl-Shift-4
Вставить текущее время в Excel
подробнее...
3750 делим на стоимость нефти марки Brent и получаем прогноз, сколько стоит доллар в рублях что значит число 3750?
делим курс нефти Brent на это число и получаем текущую цену на доллар, также можно прогнозировать
подробнее...