Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.11.2014, 18:30   #1
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию Подгрузка данных с сайта

Добрый вечер, уважаемые форумчане.

Подобные темы уже не раз обсуждались на форуме, но мне никак не удается настроить макрос из них.

Мне нужно подтянуть с сайта http://www.kicktraq.com/projects/buj...r/#chart-daily картинки и описание проекта.

На данный момент макрос такой:
Код:
Sub Chart()
'
' Chart 
'
    Dim sURI As String, htmlcode As String
    sURI = "http://www.kicktraq.com/projects/bujw/starduster/#chart-daily"
    With CreateObject("MSXML2.XMLHTTP"): .Open "GET", sURI, False: .Send: htmlcode = .responseText: End With
    Range("a2").Value = Mid(htmlcode, InStr(1, htmlcode, "description") + 11, 7)
    Range("A10").Select
    ActiveSheet.Pictures.Insert("http://www.kicktraq.com/projects/bujw/starduster/dailypledges.png").Select
    Range("A26").Select
    ActiveSheet.Pictures.Insert("http://www.kicktraq.com/projects/bujw/starduster/dailybackers.png").Select
    Range("A42").Select
    ActiveSheet.Pictures.Insert("http://www.kicktraq.com/projects/bujw/starduster/dailycomments.png").Select
'
End Sub
Картинки подтягиваются, но вот описание подтянуть не удается: во-первых, значение htmlcode пустое, а во-вторых, не понятно, сколько символов из описания подтягивать (сейчас указано число 7, но длина описания будет меняться). Может быть кто-нибудь сможет подсказать, что не так в коде?
Подскажите, пожалуйста, можно ли в строке
Код:
ActiveSheet.Pictures.Insert("http://www.kicktraq.com/projects/bujw/starduster/dailycomments.png").Select
вместо пути указать ячейку, где хранится путь, например В5?

Большое спасибо.
mephist вне форума Ответить с цитированием
Старый 06.11.2014, 21:56   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
ActiveSheet.Pictures.Insert([b5]).Select
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 07.11.2014, 15:42   #3
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Надо загружать страницу
sURI = "http://www.kicktraq.com/projects/bujw/starduster/"
тогда получите HTML код


Непонятно, зачем вы ищете слово description (и сто там после него надо взять)
К тому же, в коде страницы оно встречается более одного раза:
Цитата:
<meta name="description" content="Let's send a helium filled weather balloon to 100,000ft with a GoPro camera, a monkey* and some tracking gear.
*actually, no monkey">

<meta property="ogescription" content="Let's send a helium filled weather balloon to 100,000ft with a GoPro camera, a monkey* and some tracking gear.
*actually, no monkey" />
вот так попробуйте:
Код:
Sub test()
    Dim sURI As String, htmlcode As String
    sURI = "http://www.kicktraq.com/projects/bujw/starduster/"
    
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", sURI, False
        .Send
        htmlcode = .ResponseText
    End With
    
    descr$ = Split(Split(htmlcode, "description")(1), """")(2)
    Range("a2").Value = descr$
End Sub

Последний раз редактировалось EducatedFool; 07.11.2014 в 15:45.
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ежедневная подгрузка данных mephist PHP 13 24.08.2014 20:00
Парсер сайта и ajax подгрузка CodeNOT PHP 6 12.10.2012 11:37
Подгрузка данных из одной таблицы в другую alexp21 Microsoft Office Excel 1 25.09.2011 00:26
TDBLookupComboBox подгрузка данных SNUPY Общие вопросы Delphi 0 04.02.2010 00:28
Подгрузка данных из MySQL Platinum2009 PHP 4 20.11.2009 20:43