Ir para conteúdo
Fórum Script Brasil
  • 0

Pegar Dados do Internet Explorer


jaugusto

Pergunta

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

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...