Versão atual:

Interface VBA x Internet Explore

Pessoal esse codigo vba pega valor da celula joga no meu site click em enviar.. Preciso que e corra a linha exemplo.. Copiou e enviou a linha 1 agora faça linha dois Alguem me ajuda?


           While Cells(1, 1).Value = OK 
            IE.Document.GetElementbyid("txtBA").Value = Cells(1, 1)
            Do While IE.Busy
            DoEvents
            Loop
           IE.Document.GetElementbyid("submit").Click
            Wend
            'Clica em Executar
           ' Call MyWaitMacro

            'Call MyWaitMacro
            'IE.WindowActivate
            'IE.SendKeys ("S")

           ' Do While IE.Busy
            'DoEvents
            'Loop

            'Do While Not (IE.ReadyState = READYSTATE_COMPLETE)
            'DoEvents
            'Loop
            'Dim x1 As String

'IE.Visible = False
'IE.Quit

End Sub

```

Versões(3):

Ver a versão formatada

Interface VBA x Interne Explore

  • criado 25 de fev de 2014

Comentário

new question