- 04 Mar 2021 às 10:16
#62626
Bom dia
Estou com uma dificuldade de um site para lançar as informações em uma caixa de texto do site já tentei de todas as formas mais ele não preencher se não foi digitando ou selecionando e colando poderiam de dar um help?
Sub Emissao_Alvara()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
sURL = "http://www.sefaz.salvador.ba.gov.br/Alv ... #gsc.tab=0"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.Navigate sURL
oBrowser.Visible = True
Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCnpj.Value = Range("B1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCGA.Value = Range("D1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCpfRepresentante.Value = Range("D1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_BtnConsultar0.Click
End Sub
Estou com uma dificuldade de um site para lançar as informações em uma caixa de texto do site já tentei de todas as formas mais ele não preencher se não foi digitando ou selecionando e colando poderiam de dar um help?
Sub Emissao_Alvara()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
sURL = "http://www.sefaz.salvador.ba.gov.br/Alv ... #gsc.tab=0"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.Navigate sURL
oBrowser.Visible = True
Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCnpj.Value = Range("B1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCGA.Value = Range("D1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCpfRepresentante.Value = Range("D1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_BtnConsultar0.Click
End Sub