none
Macro para abrir site RRS feed

  • Pergunta

  • Boa tarde preciso gravar uma macro que abra um determinado site usando o IE e se possivel a mesma ja preencha alguns campos na estrutura do site de acordo com os dados da planilha

    Desde ja agradelço

    quinta-feira, 14 de novembro de 2013 15:21

Respostas

  • Para abrir e navegar com o Internet Explorer em um site e preencher alguns dados:

    Sub fnc()
        Dim appIE As Object 'InternetExplorer
        Dim oNomeUsuário As Object
        Dim oSenha As Object
        Dim oBotão As Object
        
        Set appIE = CreateObject("InternetExplorer.Application")
        
        appIE.Navigate "http://www.viptag.com.br"
    
        'Aguarda que a página termine de carregar:
        Do While appIE.Busy
        Loop
    
        'Atribui à uma variável o elemento do documento aberto no Internet Explorer
        'cujo nome é txtUsername:
        Set oNomeUsuário = appIE.Document.getElementsByName("txtUsername")
        If Not oNomeUsuário Is Nothing Then
            'Preenche a Caixa de Texto onde se insere o nome do usuário
            oNomeUsuário(0).Value = "benzadeus"
        End If
    
        'Atribui à uma variável o elemento do documento aberto no Internet Explorer
        'cujo nome é txtPassword:
        Set oSenha = appIE.Document.getElementsByName("txtPassword")
        If Not oSenha Is Nothing Then
            'Preenche a Caixa de Texto onde se insere a senha
            oSenha(0).Value = "minhasenha"
        End If
    
        'Código para simular um clique de botão em Login:
        Set oBotão = appIE.Document.getElementsByTagName("btnLogin")
        If Not oSenha Is Nothing Then
            'Simula um clique de botão em btnLogin
            oBotão.Click
        End If
    End Sub
    

    Note que você terá que adaptar o código para suas necessidades.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 19 de novembro de 2013 21:22
    Moderador