Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Preencher um campo ...
 
Notifications
Clear all

Preencher um campo que já vem pre defidino no IE

 
2024 - VBA & Macros
Post Recente por artzn 9 anos atrás
3 Posts
1 Usuários
0 Reactions
1,248 Visualizações
RSS
 artzn
(@artzn)
Posts: 32
Eminent Member
Topic starter
 

Pessoal,

Tenho esse codigo onde preencho alguns campos no IE porem o da data sempre vem com a data de hoje e nao consigo altera-la... queria que entressa a data que eu botar lá..

Preciso tambem que aperte enter no final.. o SendKeys nao funcionou

No A1 tem a formula hoje()-1

Public Sub carregar()

lBA = "ba"
lUF = "RJ"
lOntem = Range("A1")

Set ie = GetObject("", "InternetExplorer.Application.1")
ie.Visible = True
ie.Navigate " http://xxx.xxx.xxx.xxx/xxxxx/xxxxx.html"

ie.Document.getelementbyid("TIPO").Value = lBA
ie.Document.getelementbyid("UF").Value = lUF
ie.Document.getelementbyid("PRIMEIRA_OCORRENCIA").Value = lOntem '- da erro aqui

' Application.Wait (Now() + TimeValue("00:00:02"))
' SendKeys "{ENTER}"

End Sub

 
Postado : 05/05/2016 10:50 am
 artzn
(@artzn)
Posts: 32
Eminent Member
Topic starter
 

Não ta mais dando o erro mas o sendKeys nao funciona ainda... o cursor precisa estar dentro do campo pra apertar o Enter.. dentro de qq um dos 3 campos listados ai

 
Postado : 05/05/2016 10:56 am
 artzn
(@artzn)
Posts: 32
Eminent Member
Topic starter
 

Pessoal,

Ja um dos problemas, o que persiste é que preciso alem de digitar o valor no campo apertar enter depois..

Po exemplo, nessa linha onde escrevo essa variavel no campo tipo eu precisava apertar enter depois disso, ainda dentro do campo ( caixinha de texto) ou se for o caso entrar na caixinha de texto e apertar enter..

ie.Document.getelementbyid("gs_TIPO").Value = lBA

Tentei fazer isso na intenção dele atribuir o valor da variavel, "clicar" na caixinha e enviar um enter... mas nao rolou... Alguem consegue ajudar?
ie.Document.getelementbyid("gs_TIPO").Value = lBA
ie.Document.getelementbyid("gs_TIPO").Click
Application.SendKeys("~")

 
Postado : 05/05/2016 1:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico