Guru do Excel e Power BI

Enviado: **06 Jan 2019 às 19:20**

Boa noite,
Já tive uma pessoa que me ajudou a extrair os links das imagens de um site.
Agora não está a funcionar pois eu acho que houve uma alteração no site e por isso devolve erro.
Até agora funcionou bem com o seguinte código:

Código: Selecionar todos

Public Function getHeroImage(productUrl As String) As String

    Dim dom As HTMLDocument
    Set dom = New HTMLDocument
    
    With CreateObject("winhttp.winhttprequest.5.1")
        .Open "GET", productUrl, False
        .send
        dom.body.innerHTML = .responseText
        getHeroImage = dom.querySelector("div.goodsIntro_largeImgWrap > img").getAttribute("data-zoom")
    End With

End Function

Já experimentei alterar a seguinte linha:

Código: Selecionar todos

dom.querySelector ("div.goodsIntro_largeImgWrap> # js-goodsNormalImg> img"). getAttribute ("data-zoom")

Mas não funcionou.
Alguém me pode ajudar por favor?
O site que pretendo os links é o seguinte:
https://pt.gearbest.com/cell-phones/pp_ ... 31974.html

Obrigado a todos

Guru do Excel e Power BI

Erro Código devido a alteração do site

Erro Código devido a alteração do site