MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    VBA WEB - controlar elementos de uma web pelo vba

    avatar
    MMALHEIROS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 18/10/2017

    VBA WEB - controlar elementos de uma web pelo vba Empty VBA WEB - controlar elementos de uma web pelo vba

    Mensagem  MMALHEIROS em 27/9/2019, 15:55

    Bom dia Galera,

    tentei de tudo, alguém pode me ajudar? preciso clicar no botão da figura web via vba!

    tentei:

    Set tabela = ie.Document.all.tags("a") (troquei a por class, tr, td, div etc e nada)

    For Each ele In tabela
       
    i = ele.innertext

       If ele.innertext = "btnmodeler-btnIconEl" Then
          Application.Wait (Now + TimeValue("0:00:01"))
          ele.Click
       End If

    Next


    Abs
    Anexos
    VBA WEB - controlar elementos de uma web pelo vba Attachmentfig3 convertido.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 7 vez(es)
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 08/09/2012

    VBA WEB - controlar elementos de uma web pelo vba Empty Aqui mesmo no fórum

    Mensagem  Maicon em 25/10/2019, 02:54

    Veja isto aqui do fórum : "http://www.maximoaccess.com/t20026-vba-interagindo-com-internet-explorer"

    Este: "http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=478268"

    E este : "https://www.guiadoexcel.com.br/preencher-formulario-da-web-via-codigo-vba-excel/"

    Estou com um projeto que preenche um formulário WEB estou montando o código até aqui funcionou . Só não usei o comando click mas creio que o comando para clicar seja :

    IE.Document.forms("Enviar").submit ou Click


    Código:
    Private Sub Calcular_btn_Click()
     Set IE = CreateObject("InternetExplorer.Application")
      
        IE.Navigate "http://suaurl.com.br"
        Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
            
            'Como a página possui JavaScript que cria os objetos que são preenchidos após a carga completa, é necessário
            'aguardar um tempo, coloquei 3 segundos, alterar conforme a necessidade.
            'Caso não tenha javascript na criação dos objetos da página comentar esta parte do código, pois será bem
            'mais rápida a execução.
            sng = Timer
            Do While sng + 3 > Timer
            Loop
        Loop
        
      
        IE.Document.all.Item("cpf").Value = Me.CNPJCPF_txt
        IE.Document.all("nome").Value = Me.Nome_txt
        IE.Document.all("cep").Value = Me.CEP_txt
        IE.Document.all("logradouro").Value = Me.Logradouro_txt
        IE.Document.all("numero").Value = Me.Numero_txt

        IE.Visible = True
        Set IE = Nothing
    End Sub
     

    '#################################
    'Set ieRadio = IE.Document.all
    'ieRadio.Item("ctl00$cp1$exportOption")(1).Checked = True


    Última edição por Maicon em 25/10/2019, 03:05, editado 1 vez(es) (Razão : Tirar link deixar entre "")


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: 21/11/2019, 22:44