Версия для слабовидящих
Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

 

= Мир MS Excel/Парсер цены. - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Парсер цены.
qwertyu Дата: Вторник, 13.02.2024, 17:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте.
Пишу простой парсер курса крипты. Часть кода нашёл на каком то сайте, осталось доработать.
Нужно чтобы код исполнялся каждые несколько секунд для постоянного обновления цен.
Подскажите как это сделать. В программировании совсем не разбираюсь.


Private Sub Workbook_Open()

    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT", False
    XMLHTTP.Send
    If XMLHTTP.statustext = "OK" Then
        txt = XMLHTTP.responseText
        txt = Replace(txt, "{""symbol"":""BTCUSDT"",""price"":""", "")
        txt = Replace(txt, """}", "")
        Cells(2, 3) = txt
    End If
    XMLHTTP.abort
    Set XMLHTTP = Nothing
    
    
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=TUSDUSDT", False
        XMLHTTP.Send
    If XMLHTTP.statustext = "OK" Then
        txt = XMLHTTP.responseText
        txt = Replace(txt, "{""symbol"":""TUSDUSDT"",""price"":""", "")
        txt = Replace(txt, """}", "")
        Cells(4, 3) = txt
    End If
    XMLHTTP.abort
    Set XMLHTTP = Nothing

End Sub

 
Ответить
СообщениеЗдравствуйте.
Пишу простой парсер курса крипты. Часть кода нашёл на каком то сайте, осталось доработать.
Нужно чтобы код исполнялся каждые несколько секунд для постоянного обновления цен.
Подскажите как это сделать. В программировании совсем не разбираюсь.

[vba]
Private Sub Workbook_Open()    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT", False    XMLHTTP.Send    If XMLHTTP.statustext = "OK" Then        txt = XMLHTTP.responseText        txt = Replace(txt, "{""symbol"":""BTCUSDT"",""price"":""", "")        txt = Replace(txt, """}", "")        Cells(2, 3) = txt    End If    XMLHTTP.abort    Set XMLHTTP = Nothing            Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=TUSDUSDT", False         XMLHTTP.Send    If XMLHTTP.statustext = "OK" Then        txt = XMLHTTP.responseText        txt = Replace(txt, "{""symbol"":""TUSDUSDT"",""price"":""", "")        txt = Replace(txt, """}", "")        Cells(4, 3) = txt    End If    XMLHTTP.abort    Set XMLHTTP = Nothing End Sub
[/vba]

Автор - qwertyu
Дата добавления - 13.02.2024 в 17:48
Nic70y Дата: Четверг, 15.02.2024, 08:37 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9141
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
модуль книги:

Private Sub Workbook_Open()
    Call u_498
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call u_499
End Sub


стандартный:

Sub u_498()
    x = Now + TimeSerial(0, 0, 10) '10 секунд
    Application.OnTime x, "u_498"
    Call u_500
End Sub
Sub u_499()
    On Error Resume Next
    Application.OnTime EarliestTime:=x, Procedure:="u_498", Schedule:=False
End Sub
Sub u_500()
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT", False
    XMLHTTP.Send
    If XMLHTTP.statustext = "OK" Then
        txt = XMLHTTP.responseText
        txt = Replace(txt, "{""symbol"":""BTCUSDT"",""price"":""", "")
        txt = Replace(txt, """}", "")
        Cells(2, 3) = txt
    End If
    XMLHTTP.abort
    Set XMLHTTP = Nothing
    
    
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=TUSDUSDT", False
        XMLHTTP.Send
    If XMLHTTP.statustext = "OK" Then
        txt = XMLHTTP.responseText
        txt = Replace(txt, "{""symbol"":""TUSDUSDT"",""price"":""", "")
        txt = Replace(txt, """}", "")
        Cells(4, 3) = txt
    End If
    XMLHTTP.abort
    Set XMLHTTP = Nothing
End Sub



ЮMoney 41001841029809
 
Ответить
Сообщениемодуль книги:
[vba]
Private Sub Workbook_Open()    Call u_498End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)    Call u_499End Sub
[/vba]
стандартный:
[vba]
Sub u_498()    x = Now + ТimeSerial(0; 0; 10) '10 секунд    Application.OnTime x; "u_498"    Call u_500End SubSub u_499()    On Error Resume Next    Application.OnTime EarliestTime:=x; Procedure:="u_498"; Schedule:=FalseEnd SubSub u_500()    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    XMLHTTP.Open "GET"; "https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT"; False    XMLHTTP.Send    If XMLHTTP.statustext = "OK" Then        txt = XMLHTTP.responseText        txt = Replace(txt; "{""symbol"":""BTCUSDT"",""price"":"""; "")        txt = Replace(txt; """}"; "")        Cells(2; 3) = txt    End If    XMLHTTP.abort    Set XMLHTTP = Nothing            Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    XMLHTTP.Open "GET"; "https://api.binance.com/api/v3/ticker/price?symbol=TUSDUSDT"; False        XMLHTTP.Send    If XMLHTTP.statustext = "OK" Then        txt = XMLHTTP.responseText        txt = Replace(txt; "{""symbol"":""TUSDUSDT"",""price"":"""; "")        txt = Replace(txt; """}"; "")        Cells(4; 3) = txt    End If    XMLHTTP.abort    Set XMLHTTP = NothingEnd Sub
[/vba]

Автор - Nic70y
Дата добавления - 15.02.2024 в 08:37
qwertyu Дата: Пятница, 16.02.2024, 18:05 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

qwertyu, Большое спасибо. :3 :3 :3 :3 :3 :3
 
Ответить
Сообщениеqwertyu, Большое спасибо. :3 :3 :3 :3 :3 :3

Автор - qwertyu
Дата добавления - 16.02.2024 в 18:05
qwertyu Дата: Пятница, 16.02.2024, 18:43 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

qwertyu, я не знаю как это запустить :( . Можешь пояснить, что делать с модулем и за что он отвечает.
 
Ответить
Сообщениеqwertyu, я не знаю как это запустить :( . Можешь пояснить, что делать с модулем и за что он отвечает.

Автор - qwertyu
Дата добавления - 16.02.2024 в 18:43
Pelena Дата: Пятница, 16.02.2024, 22:02 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19521
Репутация: 4634 ±
Замечаний: ±

Excel 365 & Mac Excel
в этой статье есть начальные сведение по макросам, в том числе и про модули


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениев этой статье есть начальные сведение по макросам, в том числе и про модули

Автор - Pelena
Дата добавления - 16.02.2024 в 22:02
MikeVol Дата: Суббота, 17.02.2024, 07:30 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 455
Репутация: 109 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
Цитата qwertyu, 13.02.2024 в 17:48, в сообщении № 1 ( писал(а)):
Пишу простой парсер

Точнее было бы "Copy-Paste" если даже
Цитата qwertyu, 16.02.2024 в 18:43, в сообщении № 4 ( писал(а)):
я не знаю как это запустить


Ученик.
Одесса - Украина
 
Ответить
Сообщение
Цитата qwertyu, 13.02.2024 в 17:48, в сообщении № 1 ( писал(а)):
Пишу простой парсер

Точнее было бы "Copy-Paste" если даже
Цитата qwertyu, 16.02.2024 в 18:43, в сообщении № 4 ( писал(а)):
я не знаю как это запустить

Автор - MikeVol
Дата добавления - 17.02.2024 в 07:30
Nic70y Дата: Суббота, 17.02.2024, 07:33 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9141
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
Цитата qwertyu, 16.02.2024 в 18:43, в сообщении № 4 ( писал(а)):
я не знаю как это запустить
точно так же как и у Вас
Цитата qwertyu, 13.02.2024 в 17:48, в сообщении № 1 ( писал(а)):
Workbook_Open
запускается при открытии книги само
К сообщению приложен файл: 3494363.xlsm (12.1 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 17.02.2024, 07:33
 
Ответить
Сообщение
Цитата qwertyu, 16.02.2024 в 18:43, в сообщении № 4 ( писал(а)):
я не знаю как это запустить
точно так же как и у Вас
Цитата qwertyu, 13.02.2024 в 17:48, в сообщении № 1 ( писал(а)):
Workbook_Open
запускается при открытии книги само

Автор - Nic70y
Дата добавления - 17.02.2024 в 07:33
  • Страница 1 из 1
  • 1
Поиск:

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