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

Вход

Регистрация

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

 

= Мир MS Excel/вытащить ссылки на картинки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вытащить ссылки на картинки (Макросы/Sub)
вытащить ссылки на картинки
С-Елена Дата: Воскресенье, 25.01.2015, 11:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте
мы имеем много прайсов с множеством строк, в которых имеем ссылку на страницу с товаром (выделено желтым)
нам нужно вытащить ссылку на саму картинку товара (последний столбец)
возможно ли с помощью к-л макроса?
конечно например возможно через СЦЕПИТЬ собрать нужные данные, что бы ссылка на картинку была рабочая , но то что выделено красным-вероятно кодировка какой то -характеристики, я не очень разбираюсь в этом вопросе
Помогите пожалуйста, или отправьте в тему где можно что то почитать похожее
К сообщению приложен файл: 3760336.xlsx (11.3 Kb)


Сообщение отредактировал С-Елена - Воскресенье, 25.01.2015, 11:43
 
Ответить
СообщениеЗдравствуйте
мы имеем много прайсов с множеством строк, в которых имеем ссылку на страницу с товаром (выделено желтым)
нам нужно вытащить ссылку на саму картинку товара (последний столбец)
возможно ли с помощью к-л макроса?
конечно например возможно через СЦЕПИТЬ собрать нужные данные, что бы ссылка на картинку была рабочая , но то что выделено красным-вероятно кодировка какой то -характеристики, я не очень разбираюсь в этом вопросе
Помогите пожалуйста, или отправьте в тему где можно что то почитать похожее
Автор - С-Елена
Дата добавления - 25.01.2015 в 11:38
doober Дата: Воскресенье, 25.01.2015, 13:16 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
То,что красным выделено,имя файла.
Завалялась одна формула по добыванию ссылок на картинки :D
К сообщению приложен файл: 3760336.xlsm (19.4 Kb)

 
Ответить
СообщениеТо,что красным выделено,имя файла.
Завалялась одна формула по добыванию ссылок на картинки :D
Автор - doober
Дата добавления - 25.01.2015 в 13:16
С-Елена Дата: Воскресенье, 25.01.2015, 17:59 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
огромное вам спасибо!!! нечеловеческое, вы не представляете как трудно проставить 400 ссылок на картинки, весь день сегодня копировала ставила ...
пойду на других прайсах тренироваться
 
Ответить
Сообщениеогромное вам спасибо!!! нечеловеческое, вы не представляете как трудно проставить 400 ссылок на картинки, весь день сегодня копировала ставила ...
пойду на других прайсах тренироваться
Автор - С-Елена
Дата добавления - 25.01.2015 в 17:59
doober Дата: Воскресенье, 25.01.2015, 19:18 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Елена, на свой сайт своя формула.
На все сайты эта функция может не сработать.

 
Ответить
СообщениеЕлена, на свой сайт своя формула.
На все сайты эта функция может не сработать.
Автор - doober
Дата добавления - 25.01.2015 в 19:18
С-Елена Дата: Воскресенье, 25.01.2015, 19:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
а что мне сделать что бы на других сайтах срабатывала ? универсальное решение есть?
точнее где править? под каждый сайт


Сообщение отредактировал С-Елена - Воскресенье, 25.01.2015, 19:53
 
Ответить
Сообщениеа что мне сделать что бы на других сайтах срабатывала ? универсальное решение есть?
точнее где править? под каждый сайт
Автор - С-Елена
Дата добавления - 25.01.2015 в 19:49
Serge_007 Дата: Воскресенье, 25.01.2015, 19:51 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Нет

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНет
Автор - Serge_007
Дата добавления - 25.01.2015 в 19:51
krosav4ig Дата: Воскресенье, 25.01.2015, 20:24 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант, для конкретно для этого сайта, на других работать не будет
[vba]
Код
Function GetImageLink$(url$)
     Application.Volatile False
     Dim oHTML: Set oHTML = CreateObject("MSXML2.XMLHTTP")
     oHTML.Open "GET", url, False: oHTML.send
     If oHTML.Status <> 200 Then Set oHTML = Nothing: Exit Function Else
     Dim oDoc: Set oDoc = CreateObject("htmlfile")
     oDoc.body.innerHTML = Split(oHTML.responseText, "item-image")(1)
     On Error Resume Next
     GetImageLink = oDoc.getElementsByTagName("img")(0).href
     Set oDoc = Nothing: Set oHTML = Nothing
End Function
[/vba]
К сообщению приложен файл: 8007979.xlsm (18.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант, для конкретно для этого сайта, на других работать не будет
[vba]
Код
Function GetImageLink$(url$)
     Application.Volatile False
     Dim oHTML: Set oHTML = CreateObject("MSXML2.XMLHTTP")
     oHTML.Open "GET", url, False: oHTML.send
     If oHTML.Status <> 200 Then Set oHTML = Nothing: Exit Function Else
     Dim oDoc: Set oDoc = CreateObject("htmlfile")
     oDoc.body.innerHTML = Split(oHTML.responseText, "item-image")(1)
     On Error Resume Next
     GetImageLink = oDoc.getElementsByTagName("img")(0).href
     Set oDoc = Nothing: Set oHTML = Nothing
End Function
[/vba]
Автор - krosav4ig
Дата добавления - 25.01.2015 в 20:24
С-Елена Дата: Воскресенье, 25.01.2015, 20:31 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
нам нужно на разные сайты

я совсем чайник, помогите пож-та . не разговаривайте со мной на проф языке ) не пойму

по первому предложенному варианту правильно ли я понимаю что вся соль в данной строчке?

RegExp.Pattern = "<img src=""(http://analpa.ru/(.+?)\.jpg)" & Chr(34)

т.е беру любой сайт ,соответственно меняю название сайта

в любой карточке товара , нажимаю инспектировать элемент (картинку )........... иии))) ??? дальше для меня набор символов)) " (.+?)\.jpg)" & Chr(34)"

Цитата doober, 25.01.2015 в 13:16, в сообщении № 2
что красным выделено,имя файла.
каким мне образом на разных сайтах узнать сию информацию?


Сообщение отредактировал С-Елена - Воскресенье, 25.01.2015, 20:32
 
Ответить
Сообщениенам нужно на разные сайты

я совсем чайник, помогите пож-та . не разговаривайте со мной на проф языке ) не пойму

по первому предложенному варианту правильно ли я понимаю что вся соль в данной строчке?

RegExp.Pattern = "<img src=""(http://analpa.ru/(.+?)\.jpg)" & Chr(34)

т.е беру любой сайт ,соответственно меняю название сайта

в любой карточке товара , нажимаю инспектировать элемент (картинку )........... иии))) ??? дальше для меня набор символов)) " (.+?)\.jpg)" & Chr(34)"

Цитата doober, 25.01.2015 в 13:16, в сообщении № 2
что красным выделено,имя файла.
каким мне образом на разных сайтах узнать сию информацию?
Автор - С-Елена
Дата добавления - 25.01.2015 в 20:31
RAN Дата: Воскресенье, 25.01.2015, 20:45 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Сия строка ищет картинку, после того, как получена информация с сайта (другая функция).
А вот эта другая функция для каждого сайта своя.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСия строка ищет картинку, после того, как получена информация с сайта (другая функция).
А вот эта другая функция для каждого сайта своя.
Автор - RAN
Дата добавления - 25.01.2015 в 20:45
С-Елена Дата: Воскресенье, 25.01.2015, 20:57 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
поменяла название сайта в этой строке. вытащились ссылки на картинки

Цитата RAN, 25.01.2015 в 20:45, в сообщении № 9
Сия строка ищет картинку, после того, как получена информация с сайта (другая функция).
А вот эта другая функция для каждого сайта своя.


где эта функция?
 
Ответить
Сообщениепоменяла название сайта в этой строке. вытащились ссылки на картинки

Цитата RAN, 25.01.2015 в 20:45, в сообщении № 9
Сия строка ищет картинку, после того, как получена информация с сайта (другая функция).
А вот эта другая функция для каждого сайта своя.


где эта функция?
Автор - С-Елена
Дата добавления - 25.01.2015 в 20:57
RAN Дата: Воскресенье, 25.01.2015, 21:01 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Как где? :o В том же модуле ниже.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКак где? :o В том же модуле ниже.
Автор - RAN
Дата добавления - 25.01.2015 в 21:01
С-Елена Дата: Воскресенье, 25.01.2015, 21:05 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, я ж пишу что мало что понимаю в макросах и прочем)) сижу по буковке разбираю что к чему ))
зато есть громадная задача -формировать файлы с ссылками
 
Ответить
СообщениеRAN, я ж пишу что мало что понимаю в макросах и прочем)) сижу по буковке разбираю что к чему ))
зато есть громадная задача -формировать файлы с ссылками
Автор - С-Елена
Дата добавления - 25.01.2015 в 21:05
RAN Дата: Воскресенье, 25.01.2015, 21:22 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Эту строку, достаточно записать так
[vba]
Код
RegExp.Pattern = "<img src=""(http://(.+?)\.jpg)" & Chr(34)
[/vba]
И если на другом сайте информация и запрос аналогичнае, сработает.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЭту строку, достаточно записать так
[vba]
Код
RegExp.Pattern = "<img src=""(http://(.+?)\.jpg)" & Chr(34)
[/vba]
И если на другом сайте информация и запрос аналогичнае, сработает.
Автор - RAN
Дата добавления - 25.01.2015 в 21:22
С-Елена Дата: Воскресенье, 25.01.2015, 21:34 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, спасибо, попробую так


Сообщение отредактировал С-Елена - Воскресенье, 25.01.2015, 21:35
 
Ответить
СообщениеRAN, спасибо, попробую так
Автор - С-Елена
Дата добавления - 25.01.2015 в 21:34
Annnnaa Дата: Четверг, 25.02.2016, 12:45 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
у меня практически та же проблема. Прайс почти на 3000 товаров, но картинки надо извлечь со страниц вк. Попыталась воспользоваться универсальным вариантом, но ничего не получилось. Помогите, пожалуйста :(
[moder]Правила форума. Пункт 5q.
Тема закрыта.
К сообщению приложен файл: instr.xlsx (76.8 Kb)


Сообщение отредактировал _Boroda_ - Четверг, 25.02.2016, 12:58
 
Ответить
Сообщениеу меня практически та же проблема. Прайс почти на 3000 товаров, но картинки надо извлечь со страниц вк. Попыталась воспользоваться универсальным вариантом, но ничего не получилось. Помогите, пожалуйста :(
[moder]Правила форума. Пункт 5q.
Тема закрыта.
Автор - Annnnaa
Дата добавления - 25.02.2016 в 12:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вытащить ссылки на картинки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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