none
Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida RRS feed

  • Pergunta

  • Pessoal, boa tarde.

    Sou novato no VBA e preciso de uma grande ajuda em uma automação que estou fazendo. Elaborei um buscador de palavras, pelo IE, que traz a quantidade de notícias publicadas num determinado dia, para a palavra selecionada.

    Quando eu depuro linha a linha, está funcionando certinho . Mas quando dou "play", ele apresenta na linha: "Range("b" & linha) = elements(count).innerText" o erro "Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida". Já tentei um monte de coisa e não descobri ainda. Poderiam me ajudar? Segue código (Não coloquei o nome do site):

    Sub BUSCADOR()
    Dim ie As Object
    Dim linha As Byte
    Dim palavra As String
    Dim j2 As String
    Dim J3 As String

    'data inicio
    j2 = Range("j7")
    'data final
    J3 = Range("j8")

    Sheets(1).Select

      For linha = 2 To Cells(Rows.count, 1).End(xlUp).Row
      'palavra selecionada  
      palavra = Range("A" & linha)

      Set ie = CreateObject("InternetExplorer.Application")

         ie.navigate "http://www.tttttttttttttt?q=" & palavra & j2 & J3
         ie.Visible = True

           Do While ie.busy

           Loop

       Set html = ie.document

       Set elements = html.getElementsByClassName("search-total-label text-default")

        'cola a quantidade de notícias que trouxe
        Range("b" & linha) = elements(count).innerText

     ie.Quit

    Next linha

    End Sub
    terça-feira, 31 de dezembro de 2019 20:30

Todas as Respostas