Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Arttas
0 / 0 / 0
Регистрация: 24.04.2017
Сообщений: 2
1

VBA Копирование картинки из HTML страницы

24.04.2017, 13:51. Просмотров 247. Ответов 3
Метки нет (Все метки)

Добрый день. В файле Экселя есть ссылки на HTML страницы содержащие фотографии. Пример: http://dinet24.ru/getitemimage/?id=7...a-2c44fd933bfd
Нужно с этой страницы достать ссылку на фотографию. Пример: http://dinet24.ru/upload/iblock/c7d/...c0582af8c1.jpg
Подскажите пожалуйста как написать макрос что бы он копировал с HTML страницы ссылку на фото и вставлял в файл Экселя?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2017, 13:51
Ответы с готовыми решениями:

Как передать с помощью VBA в Word html-код страницы?
Подскажите, пожалуйста, как передать с помощью VBA в Word html-код страницы....

VBA: как из Excel открывать html страницы, расположенные в интернете ?
Подскажите, пожалуйста: как посредством VBA из Excel открывать html...

Копирование в Access VBA
Проблема вот в чём: Есть форма(пусть будет Form1) и подчинённая форма в виде...

Копирование в EXcel VBA
На кнопочке в Excel есть данный макрос: With Worksheets("Лист1") ...

Поиск, копирование и вставка vba
Доброе время суток. В vba полный 0... помогите сделать макрос... есть файл, в...

3
kalbasiatka
396 / 248 / 77
Регистрация: 27.10.2012
Сообщений: 832
24.04.2017, 14:15 2
Цитата Сообщение от Arttas Посмотреть сообщение
как написать макрос
Можно руками, можно ногами (кому с руками не повезло).
1
Вложения
Тип файла: rar картинки.rar (12.3 Кб, 6 просмотров)
kalbasiatka
396 / 248 / 77
Регистрация: 27.10.2012
Сообщений: 832
24.04.2017, 14:24 3
Для тех, кому лень качать архив
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Static Function GetImageUrl(ByVal url As String) As String
    Dim html$
    Dim img
'------------
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", url, False
        .send
        Do: DoEvents: Loop Until .ReadyState = 4
        html = .responsetext
    End With
    With CreateObject("htmlFile")
        .Body.innerHTML = html
        For Each img In .GetElementsByTagName("img")
           GetImageUrl = img.src
           Exit For
        Next
    End With
End Function
1
Arttas
0 / 0 / 0
Регистрация: 24.04.2017
Сообщений: 2
24.04.2017, 17:55  [ТС] 4
Добавлено через 2 минуты
Спасибо большое за помощь. Я новичок в VBA и написании макросов, пока для меня это непонятно. Сегодня первый день как решил этим воспользоваться и разобраться. Спасибо еще раз за быстрый ответ и проделанную работу.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2017, 17:55

Копирование Listbox в VBA 7.1 (ms access)
Здравствуйте! Есть база данных (табличка) в ms access 13. Загружаю данные в...

Копирование Таблицы в pp посредством VBA
Добрый день! В презентации из двух слайдов, необходимо скопировать таблицу из...

Копирование изображений Word VBA
Здравствуйте. Есть проблема при копировании картинок из одного документа word в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru