Excel.web.tr'ye excelden otomatik giriş

[hryildirim]

Selamlar
excelden bu siteye şifreli giriş için aşağıdaki kodları bu siteden alıp düzenledim ama sayfaya giriş yapamıyorum. Nick ve şifre yazılıyor öylece kalıyor. siteye giriş için ne yapmalıyım. A1 hücresine nick a2 hücresine şifre giriliyor

iyi çalışmalar
Sub Test()
Dim URL As String
Dim IE As Object, MyData(1 To 2) As String
URL = "http://www.excel.web.tr"
MyData(1) = Range("A1")
MyData(2) = Range("A2")
Set IE = CreateObject("InternetExplorer.Application")
With IE

.Visible = True
.Navigate URL
Do While .ReadyState <> 4: Loop
With .Document.All
.navbar_username.Value = MyData(1)
.navbar_password.Value = MyData(2)
.Submit1.s
Do While IE.ReadyState <> 4: Loop
End With

End With
Set IE = Nothing
End Sub

 

[veyselemre]

Kodunuzu düzenledim.

Sub Test()
    Dim URL As String
    Dim IE As Object, MyData(1 To 2) As String
    URL = "http://www.excel.web.tr"
    MyData(1) = Range("A1")
    MyData(2) = Range("A2")
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate URL
        Do While .ReadyState <> 4: Loop
        With .Document.All
            .navbar_username.Value = MyData(1)
            .navbar_password.Value = MyData(2)
        End With
        .Document.forms(0).submit
        Do While .ReadyState <> 4: Loop
    End With
    Set IE = Nothing
End Sub

 

[hryildirim]

Veysel Bey Çok teşekkürler şuan çalışıyor
peki Document.forms(0).submit komutu neye göre verildi ben nasıl bulabilirim bu kodu. Sonuçta başka sayfalarda da bu tarz çalışma yapmam lazım.

 

[Haluk]

Bu tip kodlar her sayfada, sayfanın HTML yapısına göre değişir.

Sözkonusu bu örnek kodda, siteye login olmadığınız için sunucudan gelen sayfanın datasında username ve password için bir form oluşturulmuş. Bu da doküman gövdesindeki ilk form olduğu için, Jscript analojisinde nesneler sıfır tabanlı dizilerle ifade edildiği için forms(0) yazılımı, gövdedeki ilk formu işaret eder.

Form, Jscript kodunda görüldüğü gibi "post" metodu kullandığı için, Veysel bey de doğal olarak "submit" metoduyla datayı sunucuya göndermiş.

Yani, bu kodun aynısı heryerde çalışacak diye bir şey yok. Burada, istenirse butonun endeksine relatif olarak atama yapılıbilir ve "click" yordamı da çalıştırılabilirdi ya da başka yollar da denenebilirdi.

Sözün kısası, yoğurdu yemenin bir sürü çeşidi var...

 

[hryildirim]

Çok teşekkürler Haluk Bey
Ben sayfayı html olarak kaydedip microsoft script editörde inceledim ve giriş butonun isminin Submit1 olduğunu gördüm. Fakat click komutuyla yazınca çalıştıramadım. Acaba bu makro butona clickleme yöntemi ilede yazabilirmisiniz. Yardımlarınız için çok teşekkürler.

İyi Çalışmalar

 

[ulutanas]

arkadaşlar bir örnek dosya yapıp gönderirmisiniz lütfen verilen kodları girdim ama hiç bi işlem yapamadım.

 

[hryildirim]

A1 Hücresine kullanıcı adı
a2 hücresine şifre girmelisin