[Yardım]  Firefox ile E bildirge sayfasına otomatik giriş

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

Firefox ile E bildirge sayfasına otomatik giriş

İleti#1)  gokhan36 » 12 Şub 2019 14:07

Merhaba,
Aşağıdaki ilk kısımdaki kodları kullanarak firefox ile e bildirge sayfasını açabiliyorum.

Fakat otomatik şifre alanalarını doldurmuyor.

Do Until .ReadyState = 4: kısmında sarı olarak uyarı veriyor.

İki kodu nasıl birleştirerek şifre kısımlarını doldurmasını sağlayabilirim.


Private Sub CommandButton1_Click()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run ("""C:\Users\gokhans\Desktop\Firefox.lnk"" ""https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap """)

Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop

.Document.all.j_username.Value = Cells(ActiveCell.Row, "c")
.Document.all.isyeri_kod.Value = Cells(ActiveCell.Row, "d")
.Document.all.j_password.Value = Cells(ActiveCell.Row, "e")
.Document.all.isyeri_sifre.Value = Cells(ActiveCell.Row, "f")



End Sub
Kullanıcı avatarı
gokhan36
Yeni Başlamış
 
Kayıt: 05 Oca 2017 10:04
Meslek: ik uzmanı
Yaş: 39
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul / beşiktaş

Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe