jaugusto Postado Março 27, 2008 Denunciar Share Postado Março 27, 2008 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 IfEnd Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Março 29, 2008 Denunciar Share Postado Março 29, 2008 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 joabnm Postado Setembro 17, 2008 Denunciar Share Postado Setembro 17, 2008 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.Quita 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
jaugusto
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
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.