Este fórum está sendo desativado

[jeison]

Bom dia! a todos estou tentando executar esse código mais está dando erro quero buscar informações do ebay preços
Sub ebay()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate Range("B4").Value
Do
DoEvents

Loop Until ie.readystate = READYSTATE_COMPLETE

Dim doc As HTMLDocument
Set doc = ie.document Aqui é o erro
While ie.readystate <> 4
Wend

On Error Resume Next

Dim i As Integer
For i = 0 To 500
Range("b7").Offset(i).Value = doc.getelementebyid("resultsetitems").getelementsbytagname("h3")(i).innertext
Range("b7").Offset(i, 1).Value = doc.getelementbyId("resultsetItems").getlementbyclassname("1vprice prc")(i).innertext
Next i
Application.EnableEvents = True
End With

End Sub

[osvaldomp]

no editor de VBA / menu Ferramentas / Referências / verifique se a referência Microsoft HTML Object Library está marcada.

[jeison]

Olá!Alvaro a referência está marcada e ainda está dando erro no mesmo lugar o código abre a pagina da internet mais não copia os dados para planilha
Sub ebay()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate Range("B4").Value
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE

Dim doc As HTMLDocument
Set doc = ie.document mostra aqui o erro novamente
While ie.readyState <> 4
Wend

On Error Resume Next

Dim i As Integer
For i = 0 To 500
Range("b7").Offset(i).Value = doc.getelementebyid("resultsetitems").getElementsByTagName("h3")(i).innerText
Range("b7").Offset(i, 1).Value = doc.getElementById("resultsetItems").getlementbyclassname("1vprice prc")(i).innerText
Next i
Application.EnableEvents = True
End With

End Sub
Desde já muito obrigado

[osvaldomp]

Olá, Tayson.

Qual o conteúdo de B4 ?

[jeison]

Qual o conteúdo de B4 ?
é
https://www.ebay.com/sch/i.html?_from=R ... s&_sacat=0

[osvaldomp]

Aqui não apresenta esse erro que você relatou.
Alterei Loop Until ie.readyState =READYSTATE_COMPLETE para Loop Until ie.readyState = 4 e aí roda e trava nesta linha ~~~> Range("b7").Offset(i).Value = doc.getelementebyid("resultsetitems").getElementsByTagName("h3")(i).innerText

experimente as alternativas abaixo pra tentar eliminar o erro que ocorre aí:
1. desabilite esta linha colocando um apóstrofo no início (conforme destacado em vermelho) ~~~> 'Dim doc As HTMLDocument ou
2. substitua Dim doc As HTMLDocument por Dim doc As Object

[jeison]

Olá!Osvaldo ainda não esta copiando para a planilha do Excel abre a pagina mais não carrega para a planilha desde já muito obrigado

[osvaldomp]

Olá, Jeison.

1. informe se o problema inicial (Set doc = ie.document Aqui é o erro ) foi sanado
2. se foi, informe que alterações você fez no código para sanar e disponibilize o código atual
3. "ainda não esta copiando para a planilha do Excel " ~~~> faça um teste após desativar o comando abaixo (apóstrofo no início) e informe o resultado
'On Error Resume Next
4. quanto aos dados que você deseja copiar do site, faça a cópia manualmente de apenas 4 ou 5 dados e coloque aqui o resultado

[jeison]

olá esse e o link do cara fazendo
https://www.youtube.com/watch?v=yWkitcUPkSs&t=13s