ticaret sicil gazetesi giriş sorunu

[yurttutan1]

[TR][TD]
hocam meraba
microsoft office professional plus 2016 kullanmaktayım

daha önce yazdığım makro ile ticaret sicil gazetesine giriş yapıyordum fakat sayfa yapısını değiştirdi
aşağıdaki yazmış olduğum makro ile bir türlü giriş ekranını açamıyorum yardım ederseniz sevinirim

sub aaa()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "http://www.ticaretsicil.gov.tr/giris.php"
Set IE = CreateObject("InternetExplorer.Application")
With IE
Navigate URL
Visible = True
Do Until IE.ReadyState = 6: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("user_name").Value = Cells(1, "a")
IE.Document.all("user_pass").Value = Cells(1, "b")
IE.Document.all("customer_code").Value = Cells(1, "c")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub
[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD][/TR]

 

[assenucler]

Sayın @yurttutan1,

Sorunuza çözüm getirildiğinde, dosyanızı paylaşır mısınız?

 

[EmrExcel16]

Merhaba, deneyiniz.

Sub Ticaretsicil_Giris()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.ticaretsicil.gov.tr/"
ie.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("LoginEmail").Value = Cells(1, "A")
ie.Document.all("LoginSifre").Value = Cells(1, "B")
'ie.document.all("customer_code").Value = Cells(1, "c")
ie.Document.getElementsByTagName("button")(3).Click
Set ie = Nothing
MsgBox "Bitti"
End Sub

 

[yurttutan1]

hocam çalışmıyor
bendeki gibi ticaret sicil sayfasına geliyor ve orada duruyor

 

[EmrExcel16]

hocam çalışmıyor
bendeki gibi ticaret sicil sayfasına geliyor ve orada duruyor

İlgili alanları kod içinde yazıp dener misiniz ?
Tırnak içinde olan "Test@gmail.com" ve "password" alanlarını yine tırnak içinde olacak şekilde kendi bilgilerinizle doldurun.

Sub Ticaretsicil_Giris()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.ticaretsicil.gov.tr/"
ie.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("LoginEmail").Value = "Test@gmail.com" 'Giriş için ilgili alan
ie.Document.all("LoginSifre").Value = "password" 'şifre
'ie.document.all("customer_code").Value = Cells(1, "c")
ie.Document.getElementsByTagName("button")(3).Click
Set ie = Nothing
MsgBox "Bitti"
End Sub

 

[yurttutan1]

hocam şimdi çalıştı ellerine sağlık
teşekür ederim

 

[yurttutan1]

hocam formülü böyle yaptım

Sub Ticaretsicil_Giris()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.ticaretsicil.gov.tr"
ie.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("LoginEmail").Value = Cells(1, "b")
ie.Document.all("LoginSifre").Value = Cells(2, "b")
ie.Document.getElementsByTagName("button")(3).Click
Set ie = Nothing
End Sub

böylede çalıştı

 

[yurttutan1]

hocam ellerine sağlık süpersin

 

[EmrExcel16]

hocam ellerine sağlık süpersin

Rica ederim , iyi çalışmalar.
sn @assenucler , bilginize konu çözülmüştür.

 

[mehmetmet]

Merhabalar değerli grup üyeleri.
Bana ticaret sicil gazetelerini indirebilecek bir uygulamaya ihtiyacım var. Rica etsem paylaşabilir misiniz?

 

[Haluk]

Web servis aboneliğiniz var mı?

Türkiye Ticaret Sicili Gazetesi | TOBB

Türkiye Odalar ve Borsalar Birliği | Türkiye Ticaret Sicili Gazetesi

www.ticaretsicil.gov.tr

.

 

[mehmetmet]

Evet var Hocam. Yani bahsettiğiniz kullanıcı adı ve şifre ile girilen ekrandan başka bir abonelik değilse var. Uzun süredir kullanıyorum. ama topluca ticaret sicil gazetelerini indirme şansım varsa kullanmak istiyorum.

 

[Haluk]

Linkte bahsedilen "Web Servis" başka bir şey ..... Ücretli ve sizin aradığınız şey.


.

 

[mehmetmet]

:-(
Yok maalesef. bu olmaz anlamında galiba?