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

Вход

Регистрация

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

 

= Мир MS Excel/Импорт исторических биржевых данных - Страница 7 - Мир MS Excel

Старая форма входа
  • Страница 7 из 7
  • «
  • 1
  • 2
  • …
  • 5
  • 6
  • 7
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт исторических биржевых данных (Макросы/Sub)
Импорт исторических биржевых данных
Vostok Дата: Суббота, 27.06.2015, 08:57 | Сообщение № 121
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

Excel 2010
Цитата doober, 26.06.2015 в 21:49, в сообщении № 120

Секретов нет. 3 шага к победе.
Для меня Это 3 шага в тупик %) Вижу, опять регулярки, а это для меня тёмный лес. Ну а в модуль класса JSON содержимое не вставляется , выдаёт ошибку.
[vba]
Код
...............................................................
DATA = XMLHTTP.responseText
Dim JB As JsonBag  
Set JB = New JsonBag
JB.JSON = DATA 'ОШИБКА
[/vba] Ладно, будем искать .... :)

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"
 
Ответить
Сообщение
Цитата doober, 26.06.2015 в 21:49, в сообщении № 120

Секретов нет. 3 шага к победе.
Для меня Это 3 шага в тупик %) Вижу, опять регулярки, а это для меня тёмный лес. Ну а в модуль класса JSON содержимое не вставляется , выдаёт ошибку.
[vba]
Код
...............................................................
DATA = XMLHTTP.responseText
Dim JB As JsonBag  
Set JB = New JsonBag
JB.JSON = DATA 'ОШИБКА
[/vba] Ладно, будем искать .... :)
Автор - Vostok
Дата добавления - 27.06.2015 в 08:57
Vostok Дата: Воскресенье, 28.06.2015, 15:15 | Сообщение № 122
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

Excel 2010
А задачка то, как выяснилось, решается просто. Просто вынимаем JSON из упаковочки jQuery18308002048165113468();
[vba]
Код
DATA = Split((Split(XMLHTTP.responsetext, "(")(1)), ")")(0)
[/vba]
И достаём всё нужное через свойства JB без всяких регулярных выражений.
[vba]
Код
Dim JB As JsonBag
Set JB = New JsonBag
JB.JSON = DATA
........................
[/vba]

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Воскресенье, 28.06.2015, 15:16
 
Ответить
СообщениеА задачка то, как выяснилось, решается просто. Просто вынимаем JSON из упаковочки jQuery18308002048165113468();
[vba]
Код
DATA = Split((Split(XMLHTTP.responsetext, "(")(1)), ")")(0)
[/vba]
И достаём всё нужное через свойства JB без всяких регулярных выражений.
[vba]
Код
Dim JB As JsonBag
Set JB = New JsonBag
JB.JSON = DATA
........................
[/vba]
Автор - Vostok
Дата добавления - 28.06.2015 в 15:15
krosav4ig Дата: Воскресенье, 28.06.2015, 20:03 | Сообщение № 123
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Vostok, 28.06.2015 в 15:15, в сообщении № 122
[vba]
Код
DATA = Split((Split(XMLHTTP.responsetext, "(")(1)), ")")(0)
[/vba]

ну так не интересно :p
[vba]
Код
With CreateObject("vbscript.regexp")
     .Pattern = "(\(.*\))": DATA = IIf(.test(DATA), .Execute(DATA)(0), "")
End With
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Vostok, 28.06.2015 в 15:15, в сообщении № 122
[vba]
Код
DATA = Split((Split(XMLHTTP.responsetext, "(")(1)), ")")(0)
[/vba]

ну так не интересно :p
[vba]
Код
With CreateObject("vbscript.regexp")
     .Pattern = "(\(.*\))": DATA = IIf(.test(DATA), .Execute(DATA)(0), "")
End With
[/vba]
Автор - krosav4ig
Дата добавления - 28.06.2015 в 20:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт исторических биржевых данных (Макросы/Sub)
  • Страница 7 из 7
  • «
  • 1
  • 2
  • …
  • 5
  • 6
  • 7
Поиск:

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