Парсер цены.
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
Здравствуйте. Пишу простой парсер курса крипты. Часть кода нашёл на каком то сайте, осталось доработать. Нужно чтобы код исполнялся каждые несколько секунд для постоянного обновления цен. Подскажите как это сделать. В программировании совсем не разбираюсь.
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
qwertyu
Ответить
Сообщение Здравствуйте. Пишу простой парсер курса крипты. Часть кода нашёл на каком то сайте, осталось доработать. Нужно чтобы код исполнялся каждые несколько секунд для постоянного обновления цен. Подскажите как это сделать. В программировании совсем не разбираюсь. [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
модуль книги:
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
Nic70y
Ю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
Ответить
Сообщение 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
Ответить
Сообщение 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
Точнее было бы "Copy-Paste" если даже я не знаю как это запустить
Точнее было бы "Copy-Paste" если даже я не знаю как это запустить
MikeVol
Ученик. Одесса - Украина
Ответить
Сообщение Точнее было бы "Copy-Paste" если даже я не знаю как это запустить
Автор - MikeVol Дата добавления - 17.02.2024 в 07:30
Nic70y
Дата: Суббота, 17.02.2024, 07:33 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9141
Репутация:
2416
±
Замечаний:
0% ±
Excel 2010
я не знаю как это запустить
точно так же как и у Вас запускается при открытии книги само
я не знаю как это запустить
точно так же как и у Вас запускается при открытии книги самоNic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Суббота, 17.02.2024, 07:33
Ответить
Сообщение я не знаю как это запустить
точно так же как и у Вас запускается при открытии книги самоАвтор - Nic70y Дата добавления - 17.02.2024 в 07:33