- Katılım
- 3 Mart 2020
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2007
kolay gelsin aranızda yeniyim. https://earsivportal.efatura.gov.tr/intragiris.html adresine giriş için bir makro istiyorum. kullanıcı adı ve şifresini otomatik yazacak sisteme otomatik girecek. yardımlarınıza ihtiyacım var.
Private Sub CommandButton1_Click()
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate "https://earsivportal.efatura.gov.tr/intragiris.html"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
Do While dokuman.ReadyState <> "complete": DoEvents: Loop
.document.getElementById("userid").Value = "kullanıcı"
.document.getElementById("password").Value = "şifre"
.document.all("action").Click
End With
End Sub
bu kod bana hata veriyor.
Do While dokuman.ReadyState <> bu satır hatalı olduğunu gösteriyor anladığım kadarıyla. yardımcı olursanız sevinirim.
Private Sub CommandButton1_Click()
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate "https://earsivportal.efatura.gov.tr/intragiris.html"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
Do While dokuman.ReadyState <> "complete": DoEvents: Loop
.document.getElementById("userid").Value = "kullanıcı"
.document.getElementById("password").Value = "şifre"
.document.all("action").Click
End With
End Sub
bu kod bana hata veriyor.
Do While dokuman.ReadyState <> bu satır hatalı olduğunu gösteriyor anladığım kadarıyla. yardımcı olursanız sevinirim.