Здравствуйте мы имеем много прайсов с множеством строк, в которых имеем ссылку на страницу с товаром (выделено желтым) нам нужно вытащить ссылку на саму картинку товара (последний столбец) возможно ли с помощью к-л макроса? конечно например возможно через СЦЕПИТЬ собрать нужные данные, что бы ссылка на картинку была рабочая , но то что выделено красным-вероятно кодировка какой то -характеристики, я не очень разбираюсь в этом вопросе Помогите пожалуйста, или отправьте в тему где можно что то почитать похожее
Здравствуйте мы имеем много прайсов с множеством строк, в которых имеем ссылку на страницу с товаром (выделено желтым) нам нужно вытащить ссылку на саму картинку товара (последний столбец) возможно ли с помощью к-л макроса? конечно например возможно через СЦЕПИТЬ собрать нужные данные, что бы ссылка на картинку была рабочая , но то что выделено красным-вероятно кодировка какой то -характеристики, я не очень разбираюсь в этом вопросе Помогите пожалуйста, или отправьте в тему где можно что то почитать похожееС-Елена
огромное вам спасибо!!! нечеловеческое, вы не представляете как трудно проставить 400 ссылок на картинки, весь день сегодня копировала ставила ... пойду на других прайсах тренироваться
огромное вам спасибо!!! нечеловеческое, вы не представляете как трудно проставить 400 ссылок на картинки, весь день сегодня копировала ставила ... пойду на других прайсах тренироватьсяС-Елена
еще вариант, для конкретно для этого сайта, на других работать не будет [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]
еще вариант, для конкретно для этого сайта, на других работать не будет [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
RAN, я ж пишу что мало что понимаю в макросах и прочем)) сижу по буковке разбираю что к чему )) зато есть громадная задача -формировать файлы с ссылками
RAN, я ж пишу что мало что понимаю в макросах и прочем)) сижу по буковке разбираю что к чему )) зато есть громадная задача -формировать файлы с ссылкамиС-Елена
у меня практически та же проблема. Прайс почти на 3000 товаров, но картинки надо извлечь со страниц вк. Попыталась воспользоваться универсальным вариантом, но ничего не получилось. Помогите, пожалуйста :( [moder]Правила форума. Пункт 5q. Тема закрыта.
у меня практически та же проблема. Прайс почти на 3000 товаров, но картинки надо извлечь со страниц вк. Попыталась воспользоваться универсальным вариантом, но ничего не получилось. Помогите, пожалуйста :( [moder]Правила форума. Пункт 5q. Тема закрыта.Annnnaa