sendkeys'de kilitlenme problemi

[incsoft]

Arkadaşlar çalışmış olduğum sektörde kullanılmakta olan bir paket programa Excel üzerinden veri göndermesi yaptırmaktayım ancak aşırı hız olduğundan dolayı aktarma işlemi gereken görevi yerine getirememekte.İşlemcisi ve ram’leri düşük olan bilgisayarlarda sorunsuz şekilde aktarma yapmaktadır.Sendkeys’de bunun için kullanılan ek komutlar varmıdır? Sleep ile ayarlamalar yaptırdım ancak buna rağmen de kilitlenme devam etmekte.Buna nasıl bir çözüm bulabilirim?

Teşekkürler.



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()

AppActivate "İşemrinden Bağımsız Duruş Girişleri", True----------------------> AKTARMA YAPTIĞIM EKRANIN BAŞLIĞI
For d = 1 To 84
SendKeys "{f4}", True
SendKeys Sheets("TAMDURUS").Cells(d, 1), True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys Sheets("TAMDURUS").Cells(d, 1), True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys "{f9}", True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys Sheets("TAMDURUS").Cells(d, 3), True
Sleep (120)
SendKeys "{ENTER}", True
Sleep (120)
SendKeys "{f9}", True
Sleep (120)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (65)
SendKeys "{BACKSPACE}", True
Sleep (100)
SendKeys Sheets("TAMDURUS").Cells(d, 4), True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys "{ENTER}", True
Sleep (100)
SendKeys "{BACKSPACE}", True
Sleep (100)
SendKeys Sheets("TAMDURUS").Cells(d, 5), True
Sleep (100)
SendKeys "{TAB}", True
Sleep (100)
SendKeys "{f2}", True
Sleep (100)
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

DoEvents komutunu araştırın.

 

[incsoft]

Merhaba,

DoEvents komutunu araştırın.

Bu komutuma nasıl adapte edebilirim?

 

[Korhan Ayhan]

Merhaba,

"For..." ile başlayan satırın üstüne yazıp deneyin.

 

[incsoft]

Merhaba,

"For..." ile başlayan satırın üstüne yazıp deneyin.

Yapamadım maalesef...

 

[Korhan Ayhan]

Merhaba,

Neyi yapamadınız anlamadım.

DoEvents
For....

Bu şekilde yazıp deneyin.