• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

for next çok hızlı geldi :)

Katılım
9 Ekim 2010
Mesajlar
23
Excel Vers. ve Dili
2003
dg ten hücredeki değeri alıp web sayfasındaki inputa girişini yaptırıyorum fakat aşağıdaki kodlarla sadece en son kayıtı sorgulatıyor
for dongusu hızlı geliyor acemiyim yardımlarınızı bekliyorum.





Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
For i = 0 To DataGridView1.Rows.Count - 1
WebBrowser1.Document.GetElementById("idisim").SetAttribute("value", DataGridView1.Rows(i).Cells(1).Value)
WebBrowser1.Document.GetElementById("idisim").Focus()
Sleep(300)
SendKeys.Send("{ENTER}")
DataGridView1.Rows(i).Cells(2).Value = WebBrowser1.Document.All("idisim").InnerText
Next
End Sub
 
Merhaba,

Döngüdeki işlem sonunda (next satırından önce) zamanlayıcı koyarak deneyiniz.

Kod:
Application.Wait Now + TimeValue("00:00:01")

Gibi.

.
 
Geri
Üst