Soru Bir web sayfasının xml dosyasına nasıl ulaşabilirim?

[Orion1]

RSS den excel ile veri çekme işlemi Tamamdır.

 

[Haluk]

Evren Bey, tebrikler .....

XML tabloları kullanıcıların veri çekmesine yönelik hazırlanmış olduğunda, tadına doyum olmaz.....

Örneğin, aşağıdaki linkte TCMB ve Serbest Piyasa'dan döviz kurlarını çekmek gibi ....

https://www.excel.web.tr/threads/altinkaynaktan-anlik-serbest-piayasa-doeviz-kurlari-bat-dosyasi.168925/

.

 

[Orion1]

İlginiz için teşekkür ederim hocam.
İyi çalışmalar dileklerimle,kolay gelsin.

 

[Haluk]

Tekrar merhaba Evren Bey;

XML işlerine başladığınıza göre, şimdi sıra geldi hafiften XML kod yapısına ..... diye düşündüm.

Hazır bu konu başlığında forum sitemizde yazılan mesajları ve bazı bilgileri sitenin RSS sayfasından Excel'in XML - Veri AL özelliğini kullanarak almayı incelemişken, bu kez aynı bilgileri VBA kullanarak XML tablosundan veri alınmasına ilişkin bir dosya hazırladım.

İncelemenizden sonra yararlı bulucağınızı düşünüyorum.

Selamlar,

.

 

[Orion1]

Saol hocam,Ben zaten bunun için sormuştum.Şansa RSS oldu.
İnceleyecem şimdi.

 

[Orion1]

Haluk bey merhaba.
Burada Konuyu oluşturanlarıda sorgulayabilirmiyiz.
Mesela Orion1'in oluşturduğu konuları listele gibi.
Veri çekildikten sonra yaparım ama XML den sorgulamayı anlamak için.

 

[Haluk]

Merhaba;

XML kod yapılarında SQL gibi sorgulama seçeneği olmadığından, yine klasik VBA tekniğiyle kestirmeden şöyle bir şey olabilir ....

    For i = 0 To Num
        If myList2(i).Text = "Orion1" Then
            Cells(i + 4, 1) = i + 1
            Cells(i + 4, 2) = myList(i).Text
            Cells(i + 4, 3) = myList2(i).Text
            Cells(i + 4, 4) = myList3(i).Text
        End If
    Next

.

 

[Orion1]

Merhaba;

XML kod yapılarında SQL gibi sorgulama seçeneği olmadığından, yine klasik VBA tekniğiyle kestirmeden şöyle bir şey olabilir ....

    For i = 0 To Num
        If myList2(i).Text = "Orion1" Then
            Cells(i + 4, 1) = i + 1
            Cells(i + 4, 2) = myList(i).Text
            Cells(i + 4, 3) = myList2(i).Text
            Cells(i + 4, 4) = myList3(i).Text
        End If
    Next

.

Anladım hocam.Teşekkür ederim.
Yarında nodechild e bakabilirmiyiz.

 

[Zeki Gürsoy]

XML kod yapılarında SQL gibi sorgulama seçeneği olmadığından,

Olmaz olur mu Haluk Bey. "XPath", tam bu tür işler için.

https://www.w3schools.com/xml/xpath_intro.asp

.

 

[Haluk]

Zeki Bey, belki kafam karışmış olabilir ama ..... Evren Beyin isteğini XPath ile nasıl karşılayacağımı şu anda bulamadım

Diğer yandan, Evren Bey; önceki dosyaya alternatif olarak bir de aşağıdakini inceleyebilirsiniz.

.

 

[Haluk]

Zeki Bey; uyarınız için teşekkürlerimi kabul edin lütfen ....

Evren Bey; Zeki Beyin önerisi doğrultusunda XPath kullanarak "Orion1" kullanıcısına ait veriler, ekli dosyadaki kodlarla alınmaktadır.

Dosyada ayrıca, 9 veya daha fazla cevap yazılmış konuları listelemek için kullanılacak tanımlamayı da bilgi amaçlı koydum.


.

 

[Orion1]

Zeki Bey; uyarınız için teşekkürlerimi kabul edin lütfen ....

Evren Bey; Zeki Beyin önerisi doğrultusunda XPath kullanarak "Orion1" kullanıcısına ait veriler, ekli dosyadaki kodlarla alınmaktadır.

Dosyada ayrıca, 9 veya daha fazla cevap yazılmış konuları listelemek için kullanılacak tanımlamayı da bilgi amaçlı koydum.


.

Merhaba.
Haluk beye ve Zeki beye yardımlarından dolayı teşekkür ederim.
Hocam Orion1 listelenen ilk 20 içinde yoksa hata veriyor.Overlof hatası veriyor.Kırmızı renklendirdiğim satırda veriyor.
Kodlar aşağıdadır.

Sub GetData_ExcelWebTr_3()
    'Haluk
    '06/08/2018
  
    Dim XDoc As Object, strURL As String
    Dim myList As Object
    Dim Num As Byte
  
    Range("A4:D100") = ""

    Set XDoc = CreateObject("MSXML2.DOMDocument")
    XDoc.async = False
    XDoc.validateOnParse = False
  
    strURL = "https://www.excel.web.tr/forums/-/index.rss"
    XDoc.Load strURL
  
     'Orion1 isimli kullanıcının mesajlarını listelemek için:
    Set myList = XDoc.SelectNodes("//channel/item[dc:creator='Orion1']")
  
     '9 veya daha fazla cevap yazılmış konuları listelemek için:
    'Set myList = XDoc.SelectNodes("//channel/item[slash:comments>=9]")
    Num = myList.Length - 1
  
    If myList.Length = 0 Then GoTo SafeExit:
  
    For i = 0 To Num
        Cells(i + 4, 1) = i + 1
        Cells(i + 4, 2) = myList(i).SelectSingleNode("title").Text
        Cells(i + 4, 3) = myList(i).SelectSingleNode("dc:creator").Text
        Cells(i + 4, 4) = myList(i).SelectSingleNode("slash:comments").Text
    Next
      
SafeExit:
    Set myList = Nothing
    Set XDoc = Nothing
End Sub

 

[Haluk]

Evren Bey; hemen bir altındaki satır ile yer değiştirin ....

Not: 31 No'lu mesaj ekindeki dosya güncellendi.
.

 

[Orion1]

Evren Bey; hemen bir altındaki satır ile yer değiştirin ....

Not: 31 No'lu mesaj ekindeki dosya güncellendi.
.

Haluk bey yardımlarınız için tekrar teşekkür ederim.
İyi günler.

 

[Haluk]

.......
...
Yarında nodechild e bakabilirmiyiz.

Evren Bey;

Yukarıda 28 No'lu mesajınızda bahsettiğiniz konu ile ilgili olarak da ekteki dosyayı hazırladım...

Bu dosyada, daha önceki dosyada yapılan iş (foruma yazılan son 20 mesaj ve ilgili bilgiler) bu kez ChildNodes özelliği kullanılarak yapılmıştır.

.

 

[Orion1]

Evren Bey;

Yukarıda 28 No'lu mesajınızda bahsettiğiniz konu ile ilgili olarak da ekteki dosyayı hazırladım...

Bu dosyada, daha önceki dosyada yapılan iş (foruma yazılan son 20 mesaj ve ilgili özellikler) bu kez ChildNodes özelliği kullanılarak yapılmıştır.

.

Haluk hocam çok sağolun.Böylece bu konuda hallolmuş oldu.
İyi çalışmalar dilerim.

 

[Orion1]

Haluk beyin kodlar üzerinde biraz çalıştım.
Operatör kullanabilirmiyim diye biraz üzerinde çalıştım.Ve aşağıdaki şekilde yapınca oldu.

    '3 ve 3 ten büyük,9 ve 9 küçük cevap verilmiş olan cevapların görüntülenmesi.
    Set myList = XDoc.SelectNodes("//channel/item[slash:comments>=3 and slash:comments<=9]")

Sub GetData_ExcelWebTr_3()
    'Haluk
    '06/08/2018
    
    Dim XDoc As Object, strURL As String
    Dim myList As Object
    Dim Num As Byte
    
    Range("A4:D100") = ""

    Set XDoc = CreateObject("MSXML2.DOMDocument")
    XDoc.async = False
    XDoc.validateOnParse = False
    
    strURL = "https://www.excel.web.tr/forums/-/index.rss"
    XDoc.Load strURL
    'Hepsini listelemek için
    'Set myList = XDoc.SelectNodes("//channel/item")
    'Orion1 isimli kullanıcının mesajlarını listelemek için:
    'Set myList = XDoc.SelectNodes("//channel/item[dc:creator='Orion1']")
    '7 ve 7 den küçük  cevap yazılmış konuları listelemek için
    'Set myList = XDoc.SelectNodes("//channel/item[slash:comments<=7]")
    '3 ve 3 ten büyük,9 ve 9 küçük cevap verilmiş olan cevapların gösterimi
    Set myList = XDoc.SelectNodes("//channel/item[slash:comments>=3 and slash:comments<=9]")
    If myList.Length = 0 Then GoTo SafeExit
    Num = myList.Length - 1
    
    For i = 0 To Num
        Cells(i + 4, 1) = i + 1
        Cells(i + 4, 2) = myList(i).SelectSingleNode("title").Text
        Cells(i + 4, 3) = myList(i).SelectSingleNode("dc:creator").Text
        Cells(i + 4, 4) = myList(i).SelectSingleNode("slash:comments").Text
    Next
        
SafeExit:
    Set myList = Nothing
    Set XDoc = Nothing
End Sub

 

[Zeki Gürsoy]

Evren Bey, önceki mesajımda da belirtmiştim. Aşağıdaki bağlantıyı inceleyin...

https://www.w3schools.com/xml/xpath_intro.asp

 

[Orion1]

Evren Bey, önceki mesajımda da belirtmiştim. Aşağıdaki bağlantıyı inceleyin...

https://www.w3schools.com/xml/xpath_intro.asp

Teşekkür ederim.Hocam İnceleyeceğim.