zeynelhug
Altın Üye
- Katılım
- 23 Mart 2019
- Mesajlar
- 32
- Excel Vers. ve Dili
- Ofis 2016 TR - Türkçe
- Altın Üyelik Bitiş Tarihi
- 27-06-2025
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.
Bu koddan sonrasını getiremedim. Diğer linkleri sırasıyla açsın indirsin.
Yardımlarınızı bekliyorum. Şimdiden Teşekkürler.
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.
Kod:
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
Yardımlarınızı bekliyorum. Şimdiden Teşekkürler.