О курсе валют - Мир MS Excel

Регистрация

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

= Мир MS Excel/О курсе валют - Мир MS Excel

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

О курсе валют

О курсе валют

Дата: Вторник, 21.05.2013, 15:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

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

Здравствуйте. Не пинайте сразу, в поиске нужного не нашел. Если пропустил - извините.
Суть вопроса:
Есть книга со множеством листов.
На первом листе (под названием Модули) в ячейке Е2 должен быть текущий курс евро, автоматически обновляющийся через интернет. Как это сделать - не знаю (в силу своей малограмотности). Может кто поможет? Буду благодарен.

Специалист - это не тот кто не совершает ошибок, а тот кто умеет их скрыть.

Ответить

Дата: Вторник, 21.05.2013, 16:00 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Кнопка "Поиск", пишем курс валют, третья ссылка Курсы валют из интернета онлайн

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 21.05.2013, 16:03 | Сообщение № 3

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

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

Сообщений: 281

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

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

Excel 2013

Данные-Из интернета-В окне "Создание веб запроса" указать адрес интернет страницы, откуда Вы хотите получить данные- Выделить таблицу со стрелочкой-Импорт

WMR: R183220163895

Ответить

Дата: Среда, 14.01.2015, 13:25 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 162

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

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

Уважаемые , возможно ли для Office 2013 Курс валют онлайн- инструкцию сделать? потому как там пункты отличаются. и по мимо этого я делал все по инструкции, а сайты видимо уже обновились и конкретно таблицей не выделяется курсы отдельно, выделяется целиком вся страница, и лишние данные вносятся в лист.... может ли кто-то файл сюда кинуть рабочий.
Информация с курсом вставляется почему то с двумя запятыми, что при работе с формулами выдает ошибку. Пробовал лист открывать на след день - в итоге курс не поменялся. Хотя вставлял данные в настройках поставил птичку, что обновлять при открытии.

Сообщение отредактировал nifra - Среда, 14.01.2015, 13:31

Ответить

Дата: Среда, 14.01.2015, 13:31 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

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

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

Excel 2019

nifra, а эта тема в готовых решениях не подойдет для ответа на Ваш вопрос случайно?

Ответить

Дата: Среда, 14.01.2015, 13:33 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 162

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

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

DJ_Marker_MC, Спасибо. я её уже смотрел. Там вроде все замороченное и с макросами, а также датами и курсами относительно них.
Мне же нужно самое простое. Чтобы при открытии файла появлялись 2 строчки на текущий день с долларом и евро. и все.

Сообщение отредактировал nifra - Среда, 14.01.2015, 13:33

Ответить

Дата: Среда, 14.01.2015, 13:36 | Сообщение № 7

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

Ранг: Форумчанин

Сообщений: 188

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

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

Excel 2010

nifra, а с сайта через данные/получить данные из интернета пробовали?

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов

Ответить

Дата: Среда, 14.01.2015, 13:41 | Сообщение № 8

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

Ранг: Форумчанин

Сообщений: 162

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

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

JayBhagavan,
Если вы говорите про
"Данные"- "Из интернета" - то в итоге выдает мусор курс там есть, но проблемы я описал выше
вот файл

К сообщению приложен файл: 0078976.xls (36.5 Kb)

Ответить

Дата: Среда, 14.01.2015, 14:08 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3855

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

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

365

Вполне можно переделать UDF из ссылки выше.

[vba]

Код

Function Курс(сайт As String, валюта As String) As Currency   ' запрос курса  с сайта
'---------------------------------------------------------------------------------------
' Procedure : Курс
' Author    : Основа - Pavel55, коррекция - Alex_ST: 2010-01-28, Hugo:2015-01-14
' URL       : http://www.planetaexcel.ru/forum.php?thread_id=6870&page_forum=2&allnum_forum=34
' Date      : 28.01.2010
' Purpose   : Запрос указанных курсов с указанного сайта
'---------------------------------------------------------------------------------------
         Dim Ответ$
         Dim oHttp As Object
         Application.Volatile
         On Error Resume Next
         Set oHttp = CreateObject("MSXML2.XMLHTTP")
         If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
         On Error GoTo 0
         If oHttp Is Nothing Then Exit Function
         oHttp.Open "GET", сайт, False
         oHttp.Send
         Ответ = UCase(oHttp.responseText)
         Курс = CCur(Replace(Mid(Ответ, InStr(1, Ответ, ">" & валюта & "</A><SPAN>") + 14, 5), ",", "."))
         Set oHttp = Nothing
End Function

[/vba]
Применять:

Код

=курс("http://www.yandex.ru",B1)

в B1 забито USD
или

Код

=курс("http://www.yandex.ru","EUR")

или можно и сайт брать из ячейки.
Но вообще-то конечно код ориентирован только на этот конкретный сайт (и эти два курса, т.к. тянет только строго 5 символов), т.к. для другого нужно корректировать строку
[vba]

Код

Курс = CCur(Replace(Mid(Ответ, InStr(1, Ответ, ">" & валюта & "</A><SPAN>") + 14, 5), ",", "."))

[/vba]

Вполне можно переделать UDF из ссылки выше.

[vba]

Код

Function Курс(сайт As String, валюта As String) As Currency   ' запрос курса  с сайта
'---------------------------------------------------------------------------------------
' Procedure : Курс
' Author    : Основа - Pavel55, коррекция - Alex_ST: 2010-01-28, Hugo:2015-01-14
' URL       : http://www.planetaexcel.ru/forum.php?thread_id=6870&page_forum=2&allnum_forum=34
' Date      : 28.01.2010
' Purpose   : Запрос указанных курсов с указанного сайта
'---------------------------------------------------------------------------------------
         Dim Ответ$
         Dim oHttp As Object
         Application.Volatile
         On Error Resume Next
         Set oHttp = CreateObject("MSXML2.XMLHTTP")
         If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
         On Error GoTo 0
         If oHttp Is Nothing Then Exit Function
         oHttp.Open "GET", сайт, False
         oHttp.Send
         Ответ = UCase(oHttp.responseText)
         Курс = CCur(Replace(Mid(Ответ, InStr(1, Ответ, ">" & валюта & "</A><SPAN>") + 14, 5), ",", "."))
         Set oHttp = Nothing
End Function

[/vba]
Применять:

Код

=курс("http://www.yandex.ru",B1)

в B1 забито USD
или

Код

=курс("http://www.yandex.ru","EUR")

или можно и сайт брать из ячейки.
Но вообще-то конечно код ориентирован только на этот конкретный сайт (и эти два курса, т.к. тянет только строго 5 символов), т.к. для другого нужно корректировать строку
[vba]

Код

Курс = CCur(Replace(Mid(Ответ, InStr(1, Ответ, ">" & валюта & "</A><SPAN>") + 14, 5), ",", "."))

[/vba]Hugo

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Среда, 14.01.2015, 14:50

Ответить

СообщениеВполне можно переделать UDF из ссылки выше.

[vba]

Код

Function Курс(сайт As String, валюта As String) As Currency   ' запрос курса  с сайта
'---------------------------------------------------------------------------------------
' Procedure : Курс
' Author    : Основа - Pavel55, коррекция - Alex_ST: 2010-01-28, Hugo:2015-01-14
' URL       : http://www.planetaexcel.ru/forum.php?thread_id=6870&page_forum=2&allnum_forum=34
' Date      : 28.01.2010
' Purpose   : Запрос указанных курсов с указанного сайта
'---------------------------------------------------------------------------------------
         Dim Ответ$
         Dim oHttp As Object
         Application.Volatile
         On Error Resume Next
         Set oHttp = CreateObject("MSXML2.XMLHTTP")
         If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
         On Error GoTo 0
         If oHttp Is Nothing Then Exit Function
         oHttp.Open "GET", сайт, False
         oHttp.Send
         Ответ = UCase(oHttp.responseText)
         Курс = CCur(Replace(Mid(Ответ, InStr(1, Ответ, ">" & валюта & "</A><SPAN>") + 14, 5), ",", "."))
         Set oHttp = Nothing
End Function

[/vba]
Применять:

Код

=курс("http://www.yandex.ru",B1)

в B1 забито USD
или

Код

=курс("http://www.yandex.ru","EUR")

или можно и сайт брать из ячейки.
Но вообще-то конечно код ориентирован только на этот конкретный сайт (и эти два курса, т.к. тянет только строго 5 символов), т.к. для другого нужно корректировать строку
[vba]

Код

Курс = CCur(Replace(Mid(Ответ, InStr(1, Ответ, ">" & валюта & "</A><SPAN>") + 14, 5), ",", "."))

[/vba]

Автор - Hugo
Дата добавления - 14.01.2015 в 14:08

Дата: Среда, 14.01.2015, 14:13 | Сообщение № 10

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

Ранг: Форумчанин

Сообщений: 162

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

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

Hugo,
Если знать все азы макросов , то да. Я не спорю. А без них это не реализовать?

Ответить

Дата: Среда, 14.01.2015, 14:21 | Сообщение № 11

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

Ранг: Форумчанин

Сообщений: 188

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

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

Excel 2010

Цитата nifra, 14.01.2015 в 14:13, в сообщении № 10

А без них это не реализовать?

Не зацикливаться на яндексе. Два листа с разных сайтов. На своё усмотрение в свойствах поставьте обновлять при открытии.

К сообщению приложен файл: 3163398.xlsx (15.6 Kb)

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов

Ответить

Дата: Среда, 14.01.2015, 14:23 | Сообщение № 12

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

Ранг: Форумчанин

Сообщений: 162

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

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

JayBhagavan,
Да я с любого сайта согласен брать курс, главное, чтоб он был актуальный:) Галка при открытии стояла, когда делал с яндекса. Но на следующий день обновление не происходило. Может по причине двух запятых не знаю...

Ответить

Дата: Среда, 14.01.2015, 14:24 | Сообщение № 13

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

Ранг: Форумчанин

Сообщений: 188

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

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

Excel 2010

nifra, файл смотрели?

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов

Ответить

Дата: Среда, 14.01.2015, 14:33 | Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3855

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

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

365

Дополнил выше кодом.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Среда, 14.01.2015, 14:36 | Сообщение № 15

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

Ранг: Форумчанин

Сообщений: 162

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

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

JayBhagavan, А для чего у вас 2 листа используется?

Ответить

Дата: Среда, 14.01.2015, 14:38 | Сообщение № 16

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

Ранг: Форумчанин

Сообщений: 188

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

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

Excel 2010

nifra, курс с разных сайтов. Для примера.

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов

Ответить

Дата: Среда, 14.01.2015, 14:42 | Сообщение № 17

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

Ранг: Форумчанин

Сообщений: 162

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

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

Hugo,
Я правильно понял? Нужно и макрос использовать и формулу, что в дополнении вы указали. Ее нужно вставлять в определенную ячейку?
Если в ячейку вставлять, то ошибка в формуле выдается.

Сообщение отредактировал nifra - Среда, 14.01.2015, 14:42

Ответить

Дата: Среда, 14.01.2015, 14:47 | Сообщение № 18

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

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

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

Excel 2007,2010,2013

nifra, какой версией Excel пользуетесь?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 14.01.2015, 14:51 | Сообщение № 19

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

Ранг: Форумчанин

Сообщений: 162

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

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

krosav4ig, 2013

Ответить

Дата: Среда, 14.01.2015, 14:58 | Сообщение № 20

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3855

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

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

365

Можно только "мою" UDF дл яндекса. Но вообще её нужно чуть подшлифовать - сейчас тянет только 5 символов - если курс рубля упадёт за сотню, то будет брак. Или если поднимется до менее десяти

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

О курсе валют

Страница 1 из 2
1
2
»

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!