Обновление курса автоматически

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Обновление курса автоматически - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Обновление курса автоматически (Макросы/Sub)

Обновление курса автоматически

Oh_Nick

Дата: Четверг, 30.07.2020, 12:54 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Ребята,

Что прописать в коде, чтобы курс обновлялся автоматически, а не когда вводишь валюту?

[vba]

Код

Function ЦБР(Optional ТипВалюты$, Optional Дата As Date) As Double
    Dim xmDoc As Object, date_req$
    Set xmDoc = CreateObject("msxml2.DOMDocument")
    If Not CBool(Len(ТипВалюты)) Then ТипВалюты = "USD"
    date_req = "?date_req=" & IIf(Дата, Дата, Date)
    xmDoc.async = 0: xmDoc.Load ("http://www.cbr.ru/scripts/XML_daily.asp" & date_req)
    With xmDoc.SelectSingleNode("*/Valute[CharCode='" & UCase(ТипВалюты) & "']")
        ЦБР = CDbl(.ChildNodes(4).Text) / Val(.ChildNodes(2).Text)
    End With
    Set xmDoc = Nothing
End Function

[/vba]

Ответить