MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Interação VBA com IE

    avatar
    ricardopb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/09/2013

    Interação VBA com IE Empty Interação VBA com IE

    Mensagem  ricardopb 13/9/2013, 13:07

    Oi Pessoal
    Comecei a mexer com integração VBA no Internet Explorer.
    Estou tentando logar no site do Smiles, para posteriormente exportar o extrato de pontos para excel/access. Já tentei diversos códigos, mas não consigo acessar a caixa de texto para digitar o login. O site tem diversos frames, tentei citar todos eles e mesmo assim não funcionou. Segue abaixo se alguém souber uma luz
    Código:
    Sub Smiles()
        Dim ie As SHDocVw.InternetExplorer
        Set ie = CreateObject(InternetExplorer.Application)

        'OUTRAS OPÇÕES
        'Dim ie As Object
        'Dim IE As InternetExplorer
        'Set IE = New InternetExplorer

        ie.Visible = True
        ie.Navigate https://clientes.smiles.com.br/eloyalty_ptb/start.swe?SWECmd=GotoView&SWEView=Login%20View

        While ie.Busy
        Wend

        'TESTEI TODAS OPÇÕES ABAIXO E NENHUMA FUNCIONOU
        ie.Document.all.getElementById(s_1_1_9_0).innertext = 123456
        ie.Document.frames(_sweclient).Document.frames(_swecontent).Document.frames(_sweview).Document.all(s_1_1_9_0).Value = 7
        ie.Document.frames(top).Document.frames(_sweclient).Document.frames(_swecontent).Document.frames(_sweview).Document.all(s_1_1_9_0).innertext = 7
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    Interação VBA com IE Empty Re: Interação VBA com IE

    Mensagem  CrisMaleta 13/9/2013, 20:17

    Fala Pessoal....

    Estou com o mesmo problema, mas no meu caso, estou tentando acessar os campos do sistema SAP...

    Pelo que entendi até agora e pesquisei...
    É como se o sistema gerasse uma janela principal e tudo que vem dentro dela, fosse do tipo popup....

    Pode ser que seja o mesmo caso do site smiles!!!!
    Será??????affraid affraid affraid affraid affraid affraid 

    Bom, se alguém tiver alguma luz ou mesmo o Ricardo....
    Vamos conversando....

    Detalhe, também já testei todos estes comandos do Ricardo.... não vai nem com reza brava!!!!!

    Desde já agradeço....

    Abraço a todos!!!!

      Data/hora atual: 22/11/2024, 13:58