sendkeys ve kilitlenme

[incsoft]

Excel'de sendkeys ile çalışmış olduğum işyerimdeki paket programın bir kısmındaki ekrana sendkeys ile excel'den otomatik göndermeler yapmaktayım.Bu komut yüksek işlemcili bilgisayarlarda aktarım sırasında kilitleniyor ya da yanlış aktarma yapıyor.Bu komutu yavaşlatmak için ek komut varmıdır acaba?Düşük işlemcili bilgisayarlarda herhangi bir problem yaşanmamaktadır.
Kullanmış olduğum kodu gönderiyorum.
Teşekkürler..

Private Sub CommandButton1_Click()

AppActivate "İşemrinden Bağımsız Duruş Girişleri", True
For d = 1 To 63
SendKeys "{f4}", True
SendKeys "{f9}", True
SendKeys Sheets("TAMDURUS").Cells(d, 1), True
SendKeys "{ENTER}", True
SendKeys "{f9}", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys Sheets("TAMDURUS").Cells(d, 3), True
SendKeys "{ENTER}", True
SendKeys "{f9}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys "{BACKSPACE}", True
SendKeys Sheets("TAMDURUS").Cells(d, 4), True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{BACKSPACE}", True
SendKeys Sheets("TAMDURUS").Cells(d, 5), True
SendKeys "{TAB}", True
SendKeys "{f2}", True
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki şekilde değiştirip denermisiniz.
Sleep komutu kullanılmıştır. Kırmızı renkli bölümdeki değeri değiştirerek bekleme süresini ayarlayabilirsiniz.

Not : Public ile başlayan satır bu kodu uyguladığınız bölümdeki en üst satırda olmalıdır.

Option Explicit
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Private Sub CommandButton1_Click()
    AppActivate "İşemrinden Bağımsız Duruş Girişleri", True
    For d = 1 To 63
    [COLOR=red]Sleep (100)[/COLOR]
    SendKeys "{f4}", True
    SendKeys "{f9}", True
    SendKeys Sheets("TAMDURUS").Cells(d, 1), True
    SendKeys "{ENTER}", True
    SendKeys "{f9}", True
    SendKeys "{ENTER}", True
    SendKeys "{ENTER}", True
    SendKeys "{ENTER}", True
    SendKeys Sheets("TAMDURUS").Cells(d, 3), True
    SendKeys "{ENTER}", True
    SendKeys "{f9}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys "{BACKSPACE}", True
    SendKeys Sheets("TAMDURUS").Cells(d, 4), True
    SendKeys "{ENTER}", True
    SendKeys "{ENTER}", True
    SendKeys "{BACKSPACE}", True
    SendKeys Sheets("TAMDURUS").Cells(d, 5), True
    SendKeys "{TAB}", True
    SendKeys "{f2}", True
    Next
End Sub