DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
ie.document.getElementsByClassName("cstree-last")(0).Click
Olmadı maalesefVerileri aldığınız sitenin URL'i olmadığı için deneme şansım yok ama, sanki söz konusu nesnenin Class'ı ayrıca Class' landırılmış gibi ...
Kodu aşağıdaki gibi deneyin, bakalım ne olacak ... ?
.Kod:ie.document.getElementsByClassName("cstree-last")(0).Click
For Each B In .document.getElementsByTagName("a")
If B.innertext = "Vergi Levhası Bilgileri" Then B.Click
Next
msgbox ie.document.getElementsByClassName("cstree-last")(0).id
Private Sub Create_XML()
'Haluk - 23/12/2018
'E-posta:sa4truss@gmail.com
'
Function ValidateFile(strFile As String, ByRef Status As Boolean, ByRef Msg As String)
'Early Binding olarak : Veysel Emre - 23/12/2018
'Late Binding olarak : Haluk - 23/12/2018
'ByRef Status ve Msg ilaveleri : Haluk - 25/12/2018
Haluk bey merhaba,Bu arada; aşağıdaki linkte yer alan, 1 Nisan 2019 tarihinde açmış olduğunuz konu benim gözümden kaçmış....
https://www.excel.web.tr/threads/babs-mutabakat-dosyasi-mail-goenderme-xml-olusturma.179271/#post-985356
Ücretli olduğunu yukarıdaki linkte bahsettiğiniz dosyanın XML hazırlama bölümünde, sanırım aşağıdaki linkte 5 sayfa uzunluğunda yer alan ve toplam 84 adet mesaj içeren 20 Aralık 2018 tarihli konuda, talebiniz üzerine hazırladığım dosya(lar) dan alıntılar var gibi geldi.
https://www.excel.web.tr/threads/xml-dosyasi-duezenleme-ve-yine-xml-formatinda-kaydetme.176825/
Son haline getirilmiş olan dosyadaki prosedürlerin herbirinin (dosyada 12 adet Procedure ve Function var) en üstünde aşağıdaki gibi bir açıklama metni vardır;
Bu metin; hem ilerde ben kodu incelerken ne zaman hazırlamışım onu görmek için, hem de dosyayı inceleyen bir başkası kodları kim ve ne zaman hazırlamış...... o kişiyi bilgilendirmek ve kendisi başka bir projede kullanacaksa, bu bilgiyi de kendi projesine eklemesi içindir.Kod:Private Sub Create_XML() 'Haluk - 23/12/2018 'E-posta:sa4truss@gmail.com '
Örneğin, yine aynı dosyadaki başka bir prosedürün başlangıcında şöyle bir açıklama metni vardır;
Kod:Function ValidateFile(strFile As String, ByRef Status As Boolean, ByRef Msg As String) 'Early Binding olarak : Veysel Emre - 23/12/2018 'Late Binding olarak : Haluk - 23/12/2018 'ByRef Status ve Msg ilaveleri : Haluk - 25/12/2018
Yukarıdaki metinden de anlaşılacağı gibi; söz konusu Function'ı @veyselemre hazırlamış veya fikir babası kendisiymiş, ben de daha sonraki bir tarihte hangi değişikliği yaparak revize etmişim, onu belirtmişim.... Olay, bundan ibarettir.....
Ama sizin tanıtım görselinizde bu linke referans verilmemiş, size yardımcı olmaya çalışan veya fikir/öneri veren kişilerden; ben, @Zeki Gürsoy , @Erdem_34 , @veyselemre , @Ömer BARAN hiç kimseden bahsedilmemiş. Doğrusu yadırgadım....
O zaman, aklıma şu geliyor ...... bu gün açtığınız konuda bahsettiğiniz web sayfasındaki butona tıklamayla ilgili probleminizi çözseydik, sizin başka bir ücretli dosya tanıtımınızda yine benzer bir durumla karşılaşacak mıydık acaba?
Bu yazdıklarım yukarıda ismini verdiğim diğer kişileri bağlamaz, onların adına görüş belirtmiyorum. Benim şahsi düşüncelerimdir....
.
Bu konuyla ilgili de zaten alternetif bir çözüm bulduğumu iletmiştim. Tüm olasılıkları denedim buraya mesaj yazdıktan sonra.Döngüye alma dışında farklı bir çözüm bulamadım. Şimdi farklı bir sorum olacaktı. Şimdi siz böyle düşünüce ne yapacağımı şaşırdım.O zaman, aklıma şu geliyor ...... bu gün açtığınız konuda bahsettiğiniz web sayfasındaki butona tıklamayla ilgili probleminizi çözseydik, sizin başka bir ücretli dosya tanıtımınızda yine benzer bir durumla karşılaşacak mıydık acaba?
O konuda kesinlikle haklısızınız. Gerekli düzeltmeyi yapacağıma emin olabilirsiniz. Ben yapmış olduğum dosyalarımın çoğunu buradan örnek kodları uyarlayarak hazırladım. Daha da cevap bulamadıklarımı yabancı sitelerden aldım.Sn. Acar,
Ben yayınladığınız videoyu gördükten sonra mesajımı yazdım ve gördüğüm kadarıyla da en azından o mesajınızda, diğer konuya bir referans vermeniz gerekirdi diye düşünüyorum.
.