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

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

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

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

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

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

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

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

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

3
kalbasiatka
396 / 248 / 76
Регистрация: 27.10.2012
Сообщений: 832
24.04.2017, 14:15 #2
Цитата Сообщение от Arttas Посмотреть сообщение
как написать макрос
Можно руками, можно ногами (кому с руками не повезло).
1
Вложения
Тип файла: rar картинки.rar (12.3 Кб, 6 просмотров)
kalbasiatka
396 / 248 / 76
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

Access VBA Копирование данных таблиц
Доброе время суток! У меня проблема, не могу найти нужную информацию в...

Поиск и копирование с другой книги - VBA - дополнительно
Добрый день! подскажите пож-та, что в данном макросе обозначает словарь, и где...


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

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

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