Lançamento de dados da planilha na IE via Excel VBA

[TarcisioSSA]

Galera

Boa Noite

Estou com uma dificuldade de configurar o lançamento nesse site. Já fiz de tudo e as informações não é inserida.

Site: http://www.sefaz.salvador.ba.gov.br/Alvara/EmissaoAlvara

no plan2 tem as informações CNPJ CGA e CPF mais não consigo lançar na caixa de texto da web.

segue o dados:

Dim CNPJ

Dim CGA

Dim CPF

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate "http://www.sefaz.salvador.ba.gov.br/Alvara/EmissaoAlvara"

'Identifica se a página já foi totalmente carregada

While IE.ReadyState <> READYSTATE_COMPLETE

Wend

'Como a página possui JavaScript que cria os objetos que são preenchidos após a carga completa, é necessário

'aguardar um tempo, coloquei 3 segundos, alterar conforme a necessidade.

'Caso não tenha javascript na criação dos objetos da página comentar esta parte do código, pois será bem

'mais rápida a execução.

sng = Timer

Do While sng + 3 > Timer

Loop

CNPJ = Plan2.Range("A1").Value

CGA = Plan2.Range("a2").Value

CPF = Plan2.Range("a3").Value

IE.Document.Item.all("ctl00$ContentPlaceHolderPrincipal$txtNuCnpj").innerText = CNPJ

IE.Document.Item.all("ctl00$ContentPlaceHolderPrincipal$txtNuCGA").innerText = CGA

IE.Document.Item.all("ctl00$ContentPlaceHolderPrincipal$txtNuCpfRepresentante").innerText = CPF

IE.Document.Forms.Item("ctl00$ContentPlaceHolderPrincipal$BtnConsultar0").submit