Макрос по вставке курса доллара

@Иван19902012 · Регистрация: 24.10.2012

Студворк — интернет-сервис помощи студентам

Добрый день, ребят подскажите почему не работает макрос в excel:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub GetUSD()
    Dim xmldoc, nodeList
    On Error Resume Next
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    If Not xmldoc.Load("http://www.cbr.ru/scripts/XML_daily.asp?date_req=" & _
        Format(InputBox("Введите дату в формате ДД.ММ.ГГГГ", "Курс доллара", Date), "dd\/mm\/yyyy")) Then Exit Sub
    Set nodeList = xmldoc.SelectNodes("//Valute[@ID='R01235']")
    If nodeList.Length Then Range("B3") = CDbl(nodeList.Item(0).ChildNodes(4).Text)
End Sub

макросы разрешены, на некоторых машинах работает, а на некоторых нет

@Kubuntovod · 11.08.2015, 14:05

Закомментируйте On Error Resume Next и там, где не работает, поймёте почему.

@Иван19902012 · 11.08.2015, 14:15 **[ТС]**

просто удалил строчку, не разбираюсь в макросах, попросили задать вопрос на форуме. Вот что выдал при выполнение и нажатие debug

@Kubuntovod · 11.08.2015, 14:20

Надо смотреть, чему равен аргумент у CDbl. Или просто замените CDbl на CStr. Чисста для эксперимента.

@Иван19902012 · 11.08.2015, 14:24 **[ТС]**

в этой ячейке у меня дата стоит 11.08.2015

Добавлено через 1 минуту
сейчас отрабатывает, но значение выдает - 644 977.00

Добавлено через 1 минуту
а должен 64.4977 или 64.49

@Kubuntovod · 11.08.2015, 14:25

Ставьте бряк и смотрите, что там передаётся в функцию CDbl.

@Иван19902012 · 11.08.2015, 14:28 **[ТС]**

а должен 64.4977 или 64.49

Сообщение от Kubuntovod

Ставьте бряк и смотрите, что там передаётся в функцию CDbl.

извините не понимаю, сотрудник который это делал сейчас на морях загарает..

Добавлено через 27 секунд
break?

@Kubuntovod · 11.08.2015, 14:33

Скорее всего разница с разделителем. Посмотрите в региональных настройках системы.

Добавлено через 4 минуты

Сообщение от Иван19902012

break?

Да. Просто в редакторе кода мышью тык в поле слева от кода.

Сейчас попробовал Ваш код, всё верно выдаёт. Аргументом получает "64,4977".

Попробуйте, выделите фразу nodeList.Item(0).ChildNodes(4).Text и через правую кнопку Add watch...
Затем, можно просто по F8 пошагово пройти макрос.

Добавлено через 1 минуту

Сообщение от Иван19902012

сотрудник который это делал сейчас на морях загарает..

Шоб я так жил!

@Иван19902012 · 11.08.2015, 14:44 **[ТС]**

Сообщение от Kubuntovod

Шоб я так жил!

это да) Вы были правы, сброс формата чисел выполнил и все заработало) спасибо Вам

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,765
	11.08.2015, 14:05
	Закомментируйте On Error Resume Next и там, где не работает, поймёте почему. 0

@Иван19902012 59 / 59 / 9 Регистрация: 24.10.2012 Сообщений: 1,200
	11.08.2015, 14:15 [ТС]
	просто удалил строчку, не разбираюсь в макросах, попросили задать вопрос на форуме. Вот что выдал при выполнение и нажатие debug Миниатюры 0

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,765
	11.08.2015, 14:20
	Надо смотреть, чему равен аргумент у CDbl. Или просто замените CDbl на CStr. Чисста для эксперимента. 0

@Иван19902012 59 / 59 / 9 Регистрация: 24.10.2012 Сообщений: 1,200
	11.08.2015, 14:24 [ТС]
	в этой ячейке у меня дата стоит 11.08.2015 Добавлено через 1 минуту сейчас отрабатывает, но значение выдает - 644 977.00 Добавлено через 1 минуту а должен 64.4977 или 64.49 0

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,765
	11.08.2015, 14:25
	Ставьте бряк и смотрите, что там передаётся в функцию CDbl. 0

Макрос по вставке курса доллара

Решение