none
VBA acessando Internet Explorer / Chrome. RRS feed

  • Pergunta

  • Olá!

    Muito bacana o site. Muitas dúvidas minhas esclarecidas, porém existe uma que me pertuba a alguns dias.

    Vincular o VBA com o Internet Explorer, ok, consegui, porém pensei na possibilidade 
    de fazer somente uma macro para acessar vários sites e efetuar seus respectivos logins e senhas.

    No internet explorer consegui fazer 1 macro para cada, porém não consegui fazer ele rodar por, por exemplo, 3 sites. 
    (2 sites tem o mesmo login e senha e o terceiro com login e senha diferente).
    E abrir também em abas, não em janelas novas.

    No chrome eu não consegui pois não sei se tenho que referenciar algo específico ou não é possível.
    Vi outras pessoas comentando que não é possível controlar o chrome e o firefox pelo VBA, não sei se é verdade.
    Acessar o Chrome, também consigo, Só não consigo que ele faça a leitura do campo para preencher o login, senha e logar.


    No internet Explorer para 1 acesso:

    Sub login1()

        Dim IE As InternetExplorer
        Dim Ulogin As Boolean, ieForm
        Dim Mypass As String, Mylogin As String
         Set IE = New InternetExplorer 
        IE.Visible = True
        IE.Navigate "www.uol.com.br"
     
    redo:
       
        Mylogin = "XXXXXXXXXX"
        Mypass = "XXXXXXXX"
        Entrar = "submit"
        If Mylogin = "" Or Mypass = "" Then GoTo redo
       
        Do Until IE.ReadyState = READYSTATE_COMPLETE
        Loop
     
        IE.Document.All("user").innertext = Mylogin
        IE.Document.All("pass").innertext = Mypass
        IE.Document.Forms(0).submit
       
    End Sub



    Para o Chrome (somente abrir, Logar eu não consegui fazer a leitura):

    Sub Chrome()
                
        Dim GC As Object
        Dim WebUrl As String
        Dim NavigatorAddress As String
        
        Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        Set GC = CreateObject("InternetExplorer.Application")
        Let WebUrl = "www.uol.com.br" 'exemplo como se eu fosse acessar o email
        
        Shell (NavigatorAddress & " -url " & WebUrl)
            
        End Sub



    Muito Obrigado desde já pela atenção.
    quinta-feira, 17 de julho de 2014 13:02

Respostas