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

Вход

Регистрация

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

 

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

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

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

[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]
 
Ответить
СообщениеЗдравствуйте.
Пишу простой парсер курса крипты. Часть кода нашёл на каком то сайте, осталось доработать.
Нужно чтобы код исполнялся каждые несколько секунд для постоянного обновления цен.
Подскажите как это сделать. В программировании совсем не разбираюсь.

[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
Группа: Друзья
Ранг: Экселист
Сообщений: 8873
Репутация: 2315 ±
Замечаний: 0% ±

Excel 2010
модуль книги:
[vba]
Код
Private Sub Workbook_Open()
    Call u_498
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call u_499
End Sub
[/vba]
стандартный:
[vba]
Код
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
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениемодуль книги:
[vba]
Код
Private Sub Workbook_Open()
    Call u_498
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call u_499
End Sub
[/vba]
стандартный:
[vba]
Код
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
[/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
Группа: Админы
Ранг: Местный житель
Сообщений: 19281
Репутация: 4446 ±
Замечаний: ±

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


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

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

Excel LTSC 2021 EN
Пишу простой парсер

Точнее было бы "Copy-Paste" если даже
я не знаю как это запустить


Ученик.
 
Ответить
Сообщение
Пишу простой парсер

Точнее было бы "Copy-Paste" если даже
я не знаю как это запустить

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

Excel 2010
я не знаю как это запустить
точно так же как и у Вас
Workbook_Open
запускается при открытии книги само
К сообщению приложен файл: 3494363.xlsm (12.1 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 17.02.2024, 07:33
 
Ответить
Сообщение
я не знаю как это запустить
точно так же как и у Вас
Workbook_Open
запускается при открытии книги само

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

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