Erro ao executar consulta em um ambiente web com VBA

Question

Caros,

Bom dia!

Sou novo no fórum e no assunto e preciso de vossa ajuda no seguinte problema:

Estou tentando montar um aplicativo em VBA que automatize alguns processos corriqueiros que tenho para um site específico, mas estou recebendo erro 70 permissão negada ao tentar buscar um elemento por seu atributo className. Poderiam me ajudar por gentileza? Segue a parte do código com problema (como é um código para testes, ele está desorganizado e sem indentação).

VBA

_____________________________________________________________________________________________________________________________________________________________________________________

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate "https://****"

Do While IE.Busy

Loop

While IE.ReadyState <> READYSTATE_COMPLETE And IE.ReadyState <> READYSTATE_LOADED

DoEvents

Wend

With IE

'Faz o login na plataforma

While .Busy Or .ReadyState <> 4: DoEvents: Wend

.Document.GetElementByID("overridelink").Click 'Página de certificado

Application.Wait Now() + TimeValue("00:00:05")

.Document.GetElementByID("user").Focus

.Document.GetElementByID("user").Value = "****"

.Document.GetElementByID("pass").Focus

.Document.GetElementByID("pass").Value = "****"

.Document.forms(0).submit

While .Busy Or .ReadyState <> 4: DoEvents: Wend

Debug.Print .LocationURL

'Acessa a página de yyy

While .Busy Or .ReadyState <> 4: DoEvents: Wend

.Navigate "https://yyy"

'Testes com erro

Dim HTMLdoc As HTMLDocument

Dim TDelements As IHTMLElementCollection

Dim TDelement As HTMLTableCell

Set HTMLdoc = .Document

End With

Set TDelements = HTMLdoc.getElementsByTagName("A")

For Each TDelement In TDelements

MsgBox TDelement

If TDelement.className = "add" Then '<--- O ERRO OCORRE AQUI

Application.Wait Now() + TimeValue("00:00:01")

TDelement.Click

End If

Next

Answer 1

Cara, neste caso escreve pro fórum de desenvolvedores da Microsoft, este aki é so pra usuários de Windows e Office.

http://technet.microsoft.com/

Falow, abraço!

Answer 2

Valeu cara!