[Resolvido]Adapata código para buscar ie na sefaz go

Boa tarde

Tentei adaptar o codigo para buscar os dados da inscrição estadual na sefaz go mais não consegui. No site tem a opção de Busca CCE, CNPJ e CNPJ, essa opção como eu faço que pra que o CNPJ fique marcado?

Código:



Private Sub botao_Carregar_Click()

    Dim HTMLDoc As New HTMLDocument
    Dim objTable As Object
    Dim objIE As InternetExplorer
    Dim oTexto1 As String, oTexto2 As String, ipos As Integer

    Set objIE = CreateObject("InternetExplorer.Application")
    With objIE
        .StatusBar = False
        .Toolbar = False
        .Width = 800
        .Height = 600
        .Resizable = False
        .AddressBar = False
        .Visible = True
        .Top = 60
        .Left = 560
        .Navigate "http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp?"
        Do While .Busy Or _
           .ReadyState <> 4
            DoEvents
        Loop
        .Document.all.Item("tCNPJ").innerText = Me.txtCNPJ1
        .Document.all("btCGC").Click
        Do While .Busy Or _
           .ReadyState <> 4
            DoEvents
        Loop
        'Aguarda até a página ser carregada totalmente----
        Do While objIE.LocationURL <> "http://appasp.sefaz.go.gov.br/Sintegra/Consulta/consultar.asp"
        Loop
        If objIE.LocationURL = "http://appasp.sefaz.go.gov.br/Sintegra/Consulta/consultar.asp" Then
            Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE:
            Loop
        End If
        HTMLDoc.body.innerHTML = objIE.Document.body.innerHTML
        With HTMLDoc.body
            Set objTable = .getElementsByTagName("Table")
            oTexto1 = objTable(0).innerText
        End With
    End With
    objIE.Quit
    Set objIE = Nothing

    'Preparar o texto
    ipos = InStr(oTexto1, "VOLTAR") - 1
    oTexto2 = Trim(Mid(oTexto1, 1, ipos))
    oTexto2 = Replace(oTexto2, " : ", ":")
    oTexto2 = Replace(oTexto2, ": ", ":")

    'PREENCHER TODOS OS CAMPOS
    'CNPJ:
    Me.txtCNPJ2 = ObterCampo(oTexto2, "CNPJ:", "Inscrição Estadual:")
    'Inscrição Estadual:
    Me.txtInscricaoEstadual = ObterCampo(oTexto2, "Inscrição Estadual:", "Razão Social:")
    'Razão Social:
    Me.txtNomedaEmpresa = ObterCampo(oTexto2, "Razão Social:", "Logradouro:")
    'Logradouro:
    Me.txtEndereço = ObterCampo(oTexto2, "Logradouro:", "Número:")
    'Número:
    Me.txtNúmero = ObterCampo(oTexto2, "Número:", "Complemento:")
    'Complemento:
    Me.txtComplemento = ObterCampo(oTexto2, "Complemento:", "Bairro:")
    'Bairro:
    Me.txtBairro = ObterCampo(oTexto2, "Bairro:", "Município:")
    'Município:
    Me.txtMunicipio = ObterCampo(oTexto2, "Município:", "UF:")
    'UF:
    Me.txtUF = ObterCampo(oTexto2, "UF:", "CEP:")
    'CEP:
    Me.txtCEP = ObterCampo(oTexto2, "CEP:", "Telefone:")
    'Telefone:
    Me.txtTelefone = ObterCampo(oTexto2, "Telefone:", "INFORMAÇÕES COMPLEMENTARES")
    'Atividade Econômica:
    Me.txtAtividadedaEmpresa = ObterCampo(oTexto2, "Atividade Econômica:", "Data de Inicio de Atividade:")

End Sub



Tente usando um dos comandos abaixo para selecionar o botão:

Set ieRadio = IE.Document.all
ieRadio.Item("rTipoDoc")(1).Checked = True

ou

Set ieRadio = IE.Document.all
ieRadio.Item("rTipoDocCNPJ")(1).Checked = True