Merhabalar,
Bu konu çokça işlenmiş ama bir türlü bunu uygulayamadım. Hatta geçmişte kendim de benzer bir soru sordum ve oradaki cevaplanan uygulamayı buraya uygulayamadım. İstediğim şey aslında basit.
Ekli dosyada butona tıklanınca textbox içine "http://bigpara.hurriyet.com.tr/kobi/dunya-emtia-borsalari/sxaggr-gumus-gram/" sitesindeki "Alış(TL) hücresinin içindeki verinin" gelmesini istiyorum. Sadece bu. Teşekkürler..
Webden Veri Çekme
Const GLink As String = "http://bigpara.hurriyet.com.tr/kobi/dunya-emtia-borsalari/sxaggr-gumus-gram/"
Dim GVeri
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")
With appIE
.Navigate GLink
.Visible = False
End With
Do While appIE.Busy: DoEvents: Loop
Set GVeri = appIE.Document.querySelector(".kurBox span[class='value up']")
Me.Metin1 = GVeri.innertext
appIE.Quit
Set appIE = Nothing
Çok teşekkürler. Tam istediğim gibi sade...
2 sorum olacak.
1) Kod dizilimindeki create object içinde Internetexplorer.application diye bir şey yazıyor. Eğer ilerde başka bir denemede ilgili sayfa explorer ile açılamıyor da chrome ile açılabiliyorsa bu durumda hata oluşur mu? (Yani chrome.application diye bir şey var mı?)
2) Web sayfasındaki AlışTL hücresinin ".kurBox span[class='value up']" olduğunu nerden buldunuz? Çünkü ben Chrome ile sayfayı açıp "İncele" dediğimde ilgili hücre için "<span class="value up">6,13</span>" tarzı bir ifade buluyorum. Ben bunu yazmıştım çalışmadı tabi...
2 sorum olacak.
1) Kod dizilimindeki create object içinde Internetexplorer.application diye bir şey yazıyor. Eğer ilerde başka bir denemede ilgili sayfa explorer ile açılamıyor da chrome ile açılabiliyorsa bu durumda hata oluşur mu? (Yani chrome.application diye bir şey var mı?)
2) Web sayfasındaki AlışTL hücresinin ".kurBox span[class='value up']" olduğunu nerden buldunuz? Çünkü ben Chrome ile sayfayı açıp "İncele" dediğimde ilgili hücre için "<span class="value up">6,13</span>" tarzı bir ifade buluyorum. Ben bunu yazmıştım çalışmadı tabi...
1- chrome.application diye bir kod kullanamazsın.
2- bahsettiğiniz
kodu
kodunun içerisinde.
Bu yüzden
Şeklinde yazıldı. Html ve vb bilginiz yok ise çözebilmeniz zor.
2- bahsettiğiniz
<span class="value up">6,14</span>
kodu
<div class="kurBox">
kodunun içerisinde.
Bu yüzden
Set GVeri = appIE.Document.querySelector(".kurBox span[class='value up']")
Şeklinde yazıldı. Html ve vb bilginiz yok ise çözebilmeniz zor.
Tamamdır, çok teşekkürler. Html bilgim pek yok, deneme yanılmayla ...
Peki bu konu hakkında bir şey daha sorayım,
Aynı site içinde AlışTL hücresi ve SatışTL hücresi yanyana bulunuyor. Gördüğüm kadarıyla ikisi de kurbox ile ifade ediliyor. Sizin yazdığınız koddaki kurbox Alışı, Satıştan nasıl farkediyor? SatışTL hücresinin ifadesi kurbox tan farklı birşey mi?
Aynı site içinde AlışTL hücresi ve SatışTL hücresi yanyana bulunuyor. Gördüğüm kadarıyla ikisi de kurbox ile ifade ediliyor. Sizin yazdığınız koddaki kurbox Alışı, Satıştan nasıl farkediyor? SatışTL hücresinin ifadesi kurbox tan farklı birşey mi?
Konuyu Okuyanlar: 1 Ziyaretçi