Excelde webteki formlara veri gönderme...

Katılım
20 Haziran 2006
Mesajlar
55
For-Next döngüsü ile sıra ile sitelere login oldurmaya çalışıyorum..

Ancak döngüde 1.siteyi acip login oldurmadan diğerine geçiyor, 2. ci login olmadan 3.ye geçiyor.. en olanına sadece login oluyor..

For-next döngüsü nasıl olmalı. veya başka bir döngümü kullanılmalı.

Kullandığım kodlama aşağıda; Hata nerede acaba???

Dim URL As String, Uname As String, Pword As String
s = [c2] ' Listeye başlangıç sayısı
m = [j2] ' Liste bitiş sayısı

For i = s To m
Url = Range("b" & i + 3).Text
Uname = Range("k" & i + 3).Text
Pword = Range("l" & i + 3).Text

Call SendDataListWWW(URL, Uname, Pword)

Next


Sub SendDataListWWW(MyURL As String, UserName As String, Password As String)

On Error Resume Next
WebBrowser1.SetFocus
WebBrowser1.Navigate MyURL

If WebBrowser1.Busy Then
Application.Wait Now + TimeValue("00:00:01")
Else
GoTo devam
End If

devam:
WebBrowser1.SetFocus
Set nm = WebBrowser1.Document.All.Item("username")
nm.Value = UserName
Set ps = WebBrowser1.Document.All.Item("password")
ps.Value = Password
SendKeys "{TAB}", True

Set lg = WebBrowser1.Document.All.Item("Login")
lg.SetFocus
lg.Click

Application.Wait Now + TimeValue("00:00:05")
End Sub
 
Üst