Блог

Возможно ли написать макрос или vba, который будет выполнять поиск изображений по содержимому ячейки в строке A и возвращать URL-адрес изображения? Мне удалось вернуть первый результат в прошлом или первый результат поиска, но я не могу понять, как создать тот, который вернет соответствующее изображение, например:

http://www.gamexchange.co.uk/images/pictures/products/ps3/littlebigplanet-3-ps3-(product-photography).jpg?v=b13dfc3644d28cd2cff7d5729a35fc5e

Буду признателен за любую помощь, поскольку, по-моему, функция поиска исчерпана.

Спасибо.

Вот код, который я использовал, который работает не так, как хотелось.

  Sub XMLHTTP()

Dim url As String, lastRow As Long
Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object
Dim start_time As Date
Dim end_time As Date

lastRow = Range("A" amp; Rows.Count).End(xlUp).Row

Dim cookie As String
Dim result_cookie As String

start_time = Time
Debug.Print "start_time:" amp; start_time

For i = 2 To lastRow

    url = "https://www.google.co.in/search?q=" amp; Cells(i, 1) amp; "amp;rnd=" amp; WorksheetFunction.RandBetween(1, 10000)

    Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
    XMLHTTP.Open "GET", url, False
    XMLHTTP.setRequestHeader "Content-Type", "text/xml"
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    XMLHTTP.send

        Set html = CreateObject("htmlfile")
    html.body.innerHTML = XMLHTTP.ResponseText
    Set objResultDiv = html.getelementbyid("rso")
    Set objH3 = objResultDiv.getelementsbytagname("H3")(0)
    Set link = objH3.getelementsbytagname("a")(0)


    str_text = Replace(link.innerHTML, "<EM>", "")
    str_text = Replace(str_text, "</EM>", "")

    Cells(i, 2) = str_text
    Cells(i, 3) = link.href
    DoEvents
Next

end_time = Time
Debug.Print "end_time:" amp; end_time

Debug.Print "done" amp; "Time taken : " amp; DateDiff("n", start_time, end_time)
MsgBox "done" amp; "Time taken : " amp; DateDiff("n", start_time, end_time)
End Sub
  

Проблема в том, что каждый поиск приведет вас к другому домену с совершенно другой структурой HTML.

Не существует надежного способа сделать это и ввести правильное изображение, потому что вы не можете заранее знать структуру возвращаемого HTML-кода, который вам нужно проанализировать для изображения… Конечно, вы могли бы попытаться вернуть, например, первое изображение на каждой странице, но поскольку страницы, скорее всего, будут содержать много изображений, которые не имеют отношения к вашему поиску, это будет не очень надежно.

Одной из альтернатив было бы сделать то, что вы делаете в данный момент, чтобы получить str_text и link.href к столбцам B и C вашей электронной таблицы, а затем выполнить второй запрос XMLHTTP к URL-адресу следующей структуры:

 url = "https://www.google.co.in/search?q=" amp; Cells(i, 1) amp; "amp;source=lnmsamp;tbm=ischamp;sa=X" amp; "amp;rnd=" amp; WorksheetFunction.RandBetween(1, 10000)
  

Это вернет поиск изображений Google. Опять же, это будет не идеально, поскольку приложение не может определить, какое изображение является «лучшим» для возврата, но вы могли бы более надежно вернуть первое изображение, поскольку эти результаты с большей вероятностью будут соответствовать вашему поисковому запросу.