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