Excel ile Hızlı İndirme

Bu dosya, Excel'de listelenen web bağlantılarındaki dosyaların makro yardımıyla tek seferde bilgisayara indirilmesini sağlar. Bağlantılar tek tek tarayıcıya yapıştırılmadan sırayla indirilir ve her satırın sonucu yanındaki hücreye yazılır.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: F5 hücresinde "Link" başlığı bulunur. İndirilecek bağlantılar F6 hücresinden itibaren alt alta girilir. G sütunu, her satırın indirme sonucunu gösterir.

Sayfada formül bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

• DownloadFile: Windows'un urlmon kütüphanesindeki URLDownloadToFile fonksiyonunu kullanır. Verilen bağlantıdaki dosyayı belirtilen yola kaydeder; indirme başarılıysa True, başarısızsa False döndürür.
• download: F6 hücresinden F sütunundaki son dolu satıra kadar ilerler. Her bağlantının son "/" işaretinden sonraki bölümünü dosya adı olarak alır ve dosyayı kullanıcının masaüstündeki aehlke-tag-it-6ccd2de klasörüne kaydeder. DownloadFile sonucu (True veya False) aynı satırın G sütununa yazılır.

Makro, bağlantılardaki dosyaları internetten indirir ve diske yazar; dosya silme işlemi yapmaz. Yalnızca güvendiğiniz kaynaklara ait bağlantıları kullanmanız önerilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Masaüstünde aehlke-tag-it-6ccd2de adlı bir klasör oluşturun. Klasör yoksa indirme başarısız olur ve G sütununda False görünür.
3. Sayfa1 içinde F6 hücresinden başlayarak indirilecek bağlantıları alt alta yapıştırın.
4. Alt+F8 ile makro listesini açın, download makrosunu seçip çalıştırın.
5. G sütunundaki True değerleri indirilen, False değerleri indirilemeyen bağlantıları gösterir.

Kayıt klasörü başka bir yer olacaksa, makrodaki yol Visual Basic düzenleyicisinde (Alt+F11) Module1 içinde değiştirilir.