Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
jaugusto

Pegar Dados do Internet Explorer

Question

Senhores (ª) como va?

Sou novato em vba e não sei muito a respeito da liguagem.

Estou fazendo uma macro que entra em uma pagina da web e loga.

O problema esta quando tento entra em uma pagina Java com o nome do campo "F.000" da erro.

Como resover isso?

Sub Login()

Set obj = GetObject("", "InternetExplorer.Application.1")

obj.Navigate "http://pagina.com.br"

Do While obj.Busy 'Fica em loop até que a página tenha sido carregada

DoEvents

Loop

Set cwForm = obj.document 'Obtém o documento

Set formulario = cwForm.Forms(0) 'Obtém o primeiro form (o único que existe na página)

'Erro aqui===

Set f.000 = formulario(0) 'Obtém o primeiro elemento do formulário (a primeira caixa de texto)

'Erro

Set Senha = formulario(1) 'Obtém o segundo elemento do formulário (a segunda caixa de texto)

Set Entrar = formulario(2) 'Obtém o terceiro elemento do formulário (o terceiro é um botão)

f.000.Value = "Jaugusto" 'Muda o texto da primeira caixa de texto

Senha.Value = "1234" 'Muda o texto da segunda caixa de texto

obj.document.all.Item("Entrar").Click 'Clica no botão

obj.Visible = True 'Faz o IE aparecer

End If

End Sub

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

O problema é que "f.000" não é um nome válido para uma variável/objeto no VB. Mas, você pode usar qualquer outro nome no lugar. Não precisa ser exatamente igual ao que aparece na página.

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

Bom dia,

Gente resolvi resgatar esse tópico porque estou com o mesmo problema porém os posts acima não me ajudaram...

então vamos la...

eu faço o acesso a pagina web... faço o login.... exibo o relatorio... aí que vem o problema... ao colar o conteudo da pagina web para o excel... entre num loop eterno...rsrs... ou seja... eu preciso pausa a macro manualmente.

esse é o codigo que eu fiz:

objIECopy.SetText (IE.Document.body.outerHTML)

objIECopy.PutInClipboard

ThisWorkbook.Worksheets("Temp").Cells(1).PasteSpecial

IE.Quit

a primeira e a segunda linha ele executa sem problemas... na terceira linha onde cola no excel, ele exibe uma mensagem..

"Não foi possível inserir o modo interromper"

e começa o loop infinito..

fico no aguardo de alguma dica.

abs

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148561
    • Total Posts
      644242
×
×
  • Create New...