Web Sitesinden Resim Çekme

Bu dosya, bir web sayfasında yer alan .jpg uzantılı resimleri VBA makrosu ile tek seferde bilgisayara indirir. Resimler sayfanın kaynak adreslerinden (src) bulunur ve C:\aa klasörüne kaydedilir.

Dosyanın içeriği​

• Sayfa1: Boş bir sayfadır; veri ya da formül içermez. İşlemler tamamen makro ile yürütülür.
• Module1: İki prosedür içerir: ExcelDepo ve DownloadFile.

Makrolar​

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

• ExcelDepo: Internet Explorer nesnesini oluşturur, kodda yazılı olan web adresini açar ve sayfanın yüklenmesini bekler. Ardından sayfadaki tüm öğeleri tarar; src özelliği ".jpg" ile biten her adresi DownloadFile işlevine gönderir. Kayıt adı olarak adresin son 15 karakteri kullanılır. İşlem bitince tarayıcı kapatılır.
• DownloadFile: Verilen adrese XMLHTTP ile GET isteği gönderir. Yanıt "OK" ise veriyi ADODB.Stream ile yerel yola kaydeder. Bağlantı kurulamazsa "Bağlantı sağlanamadı" mesajı gösterilir.

Güvenlik notu: DownloadFile içindeki Kill komutu, aynı adda bir dosya varsa kayıt öncesinde onu siler. Makro yalnızca C:\aa içindeki aynı adlı dosyayı etkiler, ancak bu klasörde önemli dosya bulunmamalıdır. Makro ayrıca internetten dosya indirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. C:\ sürücüsünde aa adlı bir klasör oluşturun.
3. Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki ExcelDepo prosedüründe yer alan adresi resimlerini indirmek istediğiniz sayfanın adresiyle değiştirin.
4. Alt+F8 ile ExcelDepo makrosunu çalıştırın.
5. İşlem bitince indirilen resimleri C:\aa klasöründe bulabilirsiniz.

Not: Kod Internet Explorer bileşenine dayandığı için bu bileşenin bulunduğu bir Windows sisteminde çalışır.