не могу найти макрос сканера данных txt json

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

Мир MS Excel » Работа и общение » Работа / Фриланс » не могу найти макрос сканера данных txt json (Макросы Sub)

Kamtrader

Дата: Понедельник, 09.12.2013, 14:54 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2007

суть задачи:
в сети выложены обновляемые данные вида:

Цитата

[{"category":"MICEX+FORTS","ticker":"FORTS:GZ","changed":"2013-12-09 07:00:19 GMT+00:00","updated":"2013-12-09 07:15:00 GMT+00:00","position":0.0,"price":13789.0,"delta":0.2,"realtime":false},{"category":"MICEX+FORTS","ticker":"FORTS:RI","changed":"2013-12-09 07:00:19 GMT+00:00","updated":"2013-12-09 07:15:00 GMT+00:00","position":0.0,"price":139200.0,"delta":0.2,"realtime":false},{"category":"MICEX+FORTS","ticker":"FORTS:SR","changed":"2013-12-09 07:00:19 GMT+00:00","updated":"2013-12-09 07:14:36 GMT+00:00","position":0.0,"price":10012.0,"delta":0.2,"realtime":false},{"category":"MICEX+FORTS","ticker":"MICEX:GAZP","changed":"2013-12-0 9 07:00:18 GMT+00:00","updated":"2013-12-09 07:14:59 GMT+00:00","position":0.0,"price":137.63,"delta":0.2,"realtime":false},{"category":"MICEX+FORTS","ticker":"MICEX:SBER","changed":"2013-12-09 07:00:19 GMT+00:00","updated":"2013-12-09 07:14:36 GMT+00:00","position":0.0,"price":100.0,"delta":0.2,"realtime":false},{"category":"MICEX+FORTS","ticker":"MICEX:VTBR","changed":"2013-12-09 07:00:19 GMT+00:00","updated":"2013-12-09 07:14:36 GMT+00:00","position":0.0,"price":0.046,"delta":0.2,"realtime":false}]

' при нажатии кнопки "начать работу" - Лист1.Cells(2, 4) присваивается "Работает"; счетчику Лист1.Cells(2, 7) присваивается "0"
' запускается сканер Sub skaner() с выбранным периодом обновления в секундах Лист1.Cells(2, 6)
' после обработки каждого запроса данные вводятся в таблицу начиная со строки 11
' (название столбцов + 6 строк данных (кол-во строк впоследствии может меняться)
' а счетчику Лист1.Cells(2, 7) для конроля присваивается на единицу больше - обновляется после каждого обработаного запроса
'
' данные меняются меняются не часто. если изменились то вводятся новые, если неизменны то остаются старые
' при нажатии кнопки "остановить" - Лист1.Cells(2, 4) присваивается " Не работает"; - макрос останавливается

суть задачи:
в сети выложены обновляемые данные вида:

Цитата