Soru Excel ile internet explorerde işlem yapmak

[zeynelhug]

Excel.web.tr ailesi öncelikle merhabalar.

Excel ile internet explorerde işlem yapmak istiyorum

E devlete otomatik giriş yapıp sabıka kaydı vs. bunları indirmesini istiyorum.
Bir kod ayarladım fakat sadece giriş yapıyor. Devamını getiremedim.

Nufüs Kayıt Örneği
Adli Sicil
İkametgah

Bu linklere girip istediklerimi yapsın yeter.

Sub edevlet()

Set v1 = Sheets("bilgiler")
MyURL = "https://giris.turkiye.gov.tr/Giris/"
Dim MyHTML_Element As IHTMLElement
Dim MyBrowser As InternetExplorer

Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True

Do
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.Document

HTMLDoc.all.tridField.Value = v1.Range("v2").Value
HTMLDoc.all.egpField.Value = v1.Range("au2").Value

For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next

End Sub

Bu koddan sonrasını getiremedim. Diğer linkleri sırasıyla açsın indirsin.

Yardımlarınızı bekliyorum. Şimdiden Teşekkürler.

 

[sscey]

Böyle bir şeye çok ihtiyacım var aslında ama çözüm bulunamamış sanırım.