web siteden gelen mesaja tıklama

[turk4545]

Herkese selam..uzun zamandır aşamadığım bir sorunum var...

excel ile zaman zaman web sitesinden veri çekiyorum yada veri giriyorum...işlem esnasında web sitesinden mesaj kutusu açılıyor ve programa tıklatamadığım için orada takılıp kalıyorum...bu durumu nası aşabilirim...ekte örnek bir dosya var..yardımcı olursanız sevinirim...

 

[turk4545]

sanırım cevap yok..

 

[serqet]

sanırım cevap yok..

Bu kodu deneyen isterseniz.
Application.SendKeys("ENTER")

 

[turk4545]

malesef başarısız...daha önce denemiştim sizin için tekrar denedim..

 

[halit3]

Böyle denermisiniz.

Sub deneme()
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("[URL]http://www.dadagli.com/msg/[/URL]")
IE.Visible = 1
basla = Timer
bekle = 1
While Timer < basla + bekle
DoEvents
Wend
SendKeys ("{enter}"), True
Do Until IE.ReadyState = 4: DoEvents: Loop 'program burdan aşağıya geçemiyor..
Do While IE.Busy: DoEvents: Loop
MsgBox ("İŞLEM TAMAM ONAYLADIM")
IE.Quit
End Sub

 

[turk4545]

hocam çoooookkk teşekkürler...uzun zamandır aradığım bişeydi..

 

[fatihkonac]

Sayın serqet;
Sayın Halit Bey;

Öncelikle yardımlarınız için teşekkür ederim. Verdiğiniz kıymetli bilgilerin ne kadar çok işime yaradığını bilemezsiniz.

Yalnız benim başka bir sorunum var. Makro sürekli "enter" gönderdiğinden dolayı kod çalışırken başka bir uygulamayı kullanamıyorum. Yazdığım kodların çalışması bazen saatlerce sürebiliyor. Acaba bu işlemi arka planda yapabilmesinin yolu ya da direkt olarak web alerte tıklamak için başka bir alternatif yöntem var mıdır? Yardımcı olabilirseniz çok sevinirim.