Web Sitesinden Resim İndirme

Bu dosya, bir web sayfasında bulunan .jpg uzantılı resimleri VBA makrosuyla bulur ve bilgisayardaki C:\aa klasörüne kaydeder. Sayfa adresi makro kodunda tanımlıdır; farklı bir sayfadan indirme yapmak için bu adres kodda değiştirilir.

Dosyanın içeriği​

• Sayfa1: B2:D2 aralığında yalnızca başlangıç alanı bulunur; formül, tablo veya grafik yoktur.
• Module1: ExcelDepo ve DownloadFile adlı iki yordamı içeren VBA modülü (33 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• ExcelDepo: Internet Explorer'ı CreateObject ile başlatır, koddaki adrese gider ve sayfanın yüklenmesini bekler. Sayfadaki tüm öğeleri tek tek dolaşarak src özniteliğini okur. Adresi ".jpg" ile biten her öğe için DownloadFile yordamını çağırır. Kayıt adı, resim adresinin son 15 karakterinden oluşur. İşlem bitince tarayıcı kapatılır.
• DownloadFile: Verilen adrese Microsoft.XMLHTTP ile GET isteği gönderir. Yanıt "OK" ise ADODB.Stream ile resmi yerel yola kaydeder. Bağlantı kurulamazsa "Bağlantı sağlanamadı" mesajı gösterilir.

Güvenlik notu: Kod, kaydetmeden önce aynı yoldaki mevcut dosyayı Kill komutuyla siler; yani C:\aa klasöründe aynı adlı bir dosya varsa üzerine yazılır. Ayrıca makro, koddaki adrese dışarıdan bağlantı kurar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Bilgisayarda C:\aa adlı bir klasör oluşturun; klasör yoksa kayıt yapılamaz.
3. Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki ExcelDepo yordamında Navigate satırındaki adresi indirmek istediğiniz sayfayla değiştirin.
4. ExcelDepo yordamını F5 ile veya Alt+F8 penceresinden çalıştırın.
5. İşlem bittiğinde resimleri C:\aa klasöründe bulabilirsiniz.

Kod Internet Explorer bileşenine dayandığı için bu bileşenin kullanılabildiği bir Windows sisteminde çalışır.