Изображение по веб-запросу

[hamlook]

Доброго времени.
Я получаю данные таблицы с сети по команде
With ActiveSheet.QueryTables.Add(Connect ion:="URL;http://serverpir/?m=2&i=2&s=1&a=0&oc=4369&ot=99&oi=0 ", Destination:=[A1])
Но на источнике есть несколько картинок, которые мне тоже нужно обновлять.
Подскажите пожалуйста команду.

[Teslenko_EA]

Здравствуйте hamlook.
Вы строку URL запроса получили от администратора или владельца сервера? Он Вам не говорил, что таким способом можно получать только данные без изображений?
Евгений.

[hamlook]

Сервер - рабочий, внутренний,.. то есть на работе. Ссылка в открытом доступе и я ее сам взял и у администратора не спросил )))

Сообщение от Teslenko_EA

...таким способом можно получать только данные без изображений?
Евгений.

Так об этом и речь. Я данные получаю без проблемм. Но вот появилась необходимость получать изображения связанные с данными (раньше они были текстовыми, теперь для красоты решили сделать картиночки).

[hamlook]

Неужели никаких вариантов нет? Должно же быть какое то решение.
Мне даже само изображение и не нужно, пойдет и замещающий текст. Это будет даже намного лучше.

[doober]

Выход всегда есть
В каком виде(тип файла или данных) храниться картинка.

[hamlook]

Вроде бы в gif-ах. Это по типу как на некоторых прогнозах погоды рисуют снег или дождь. Так и у меня, направление и скорость - картинка, остальное - таблица с данными (кстати, точно как в прогнозе погоды...)

[doober]

Картинки взял из прогноза погоды.
Если можете получить данные,значит и имя картинки получите без проблем.Во вложении только демонстрация варианта
Необходимые картинки забиваете в ImageList

[hamlook]

Спасибо. Но не то.
Я как раз имя картинки и не могу получить.
Делаю то что должен был сделать в самом начале - выкладываю файл (прошу прощения за выпаривание мозгов).
Удалил все лишние, заменил ссылку на погоду, запуск макроса - кнопочка "0".
Как видно, на временном листе нет данных об изображениях. Вот их мне и надо.

[Aent]

Веб запрос для вашего случая - негодное средство...
Прочитать HTML страничку на WEB сервере из VBA проще всего через XMLHTTP запрос:

Dim oXMLHTTP as Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
oXMLHTTP.Open "GET", "http://serverpir/?m=2&i=2&s=1&a=0&oc=4369&ot=99&oi=0", 0
'получение файла
oXMLHTTP.Send
Debug.Print oXMLHTTP.responseBody 'прочитанный код страницы

Далее парсите полученный код, выбирая нужные вам имена файлов
Можно получив ссылку на gif считать его с сервера и сохранить локально, используя объект ADODB.Stream

Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1  'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody  'от запроса к конкретному gif
'сохранение (с перезаписью файла при необходимости)
oADOStream.SaveToFile "C:\MyGif.gif", 2

[doober]

Нужен естественно файл оригинал, и читать html код.
А для эксперимента попробовал прогноз погоды сделать через Веб запрос