- Katılım
- 22 Aralık 2018
- Mesajlar
- 16
- Excel Vers. ve Dili
- makro
Sub giris()
Dim URL As String
Dim HTML_Body As Object
URL = "https://earsivportal.efatura.gov.tr/intragiris.html"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("userid").Value = Cells(9, "D")
IE.Document.all("password").Value = Cells(10, "D")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub
Hocam başında sıfır olan değerin sıfırını yazmıyor ben ekliyorum onu çözemedim
Hocam birde portala gidiyor şifreyi yazıyor ama giriş yapmıyor ben giriş dersem giriyor
nerde hata yaptım hocam yardım
isteyim kendisi giriş yapması
yardımlarınızı bekliyorum
Dim URL As String
Dim HTML_Body As Object
URL = "https://earsivportal.efatura.gov.tr/intragiris.html"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("userid").Value = Cells(9, "D")
IE.Document.all("password").Value = Cells(10, "D")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub
Hocam başında sıfır olan değerin sıfırını yazmıyor ben ekliyorum onu çözemedim
Hocam birde portala gidiyor şifreyi yazıyor ama giriş yapmıyor ben giriş dersem giriyor
nerde hata yaptım hocam yardım
isteyim kendisi giriş yapması
yardımlarınızı bekliyorum
