Webten Rss listesi çekme

Bu dosya, bir forumun RSS akışını web üzerinden okuyup konu listesini Excel sayfasına aktaran makro içerir. Liste her çalıştırmada yeniden oluşturulur; böylece sayfada akıştaki güncel konular görüntülenir.

Dosyanın içeriği​

• Sayfa1: Liste burada oluşur. Sütunlar: A = Sıra, B = Yazar, C = Tarih, D = Konu başlığı, E = Konu linki. Örnek satırlarda tarihler 15.07.2019 22:05 biçimindedir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içinde tek bir makro bulunur: testing.

• Önce A2 ile A sütunundaki son dolu satırın bir altı arasındaki A:E aralığının içeriği temizlenir.
• Ardından XMLHTTP60 nesnesi ile RSS adresine GET isteği gönderilir ve yanıt XML belgesi olarak yüklenir.
• Akıştaki her item öğesi için sıra numarası, title (D sütunu), dc:creator (B sütunu), pubDate (C sütunu) ve link (E sütunu) değerleri 2. satırdan itibaren alt alta yazılır. Tarih değerinden " +0000" ifadesi çıkarılır ve son 20 karakteri alınır.
• Makro yalnızca RSS adresine okuma isteği gönderir; dosya silme veya başka bir yere veri gönderme işlemi yapmaz.

Makro kodundaki adres, ExceldDestek forum RSS akışını gösterir; farklı bir RSS adresi için koddaki GET satırında adres değiştirilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. VBA düzenleyicisinde (Alt+F11) Araçlar > Başvurular menüsünden Microsoft XML, v6.0 seçeneğini işaretleyin.
3. Alt+F8 ile testing makrosunu çalıştırın.
4. Konu listesi Sayfa1'de A2 hücresinden itibaren oluşur; E sütunundaki bağlantılarla konulara ulaşılır.

Çalıştırma sırasında internet bağlantısı gerekir.