Seçilen Sıkıştırılmış ZIP Dosyasını Makro ile Klasöre Çıkartmak

Bu dosya, bilgisayardan seçilen bir ZIP dosyasının içeriğini Excel üzerinden bir klasöre çıkartmak için hazırlanmış makro örneğidir. Ayrı bir arşiv programı gerekmeden, tek bir makro ile sıkıştırılmış dosyalar açılır.

Dosyanın içeriği​

• Sheet1: A1:A13 aralığında kısa metin satırları bulunur. Makro bu sayfadaki verilerden yararlanmaz.
• Module1: ExcelDestek adlı makroyu içeren VBA modülüdür (yaklaşık 25 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.
ExcelDestek makrosu sırasıyla şunları yapar:

1. Dosya seçme penceresini yalnızca *.zip dosyalarını gösterecek şekilde açar. Pencere iptal edilirse makro sonlanır.
2. Çıkartma klasörünü, Excel'in varsayılan dosya yolunun (Application.DefaultFilePath) altındaki Unzipped klasörü olarak belirler.
3. Bu klasör için önce RmDir, ardından MkDir komutunu çalıştırır. RmDir yalnızca boş bir klasörü silebildiği için içinde dosya bulunan Unzipped klasörü silinmez; yeni dosyalar mevcut içeriğin yanına çıkartılır. Bu adımlardaki hatalar yok sayılır.
4. Windows'un Shell.Application nesnesi ile ZIP içindeki tüm öğeleri hedef klasöre kopyalar.
5. İşlem bitince çıkartma yolunu gösteren bir mesaj kutusu açar; Evet seçilirse klasör Windows Gezgini ile açılır.

Kodda dışarıya bağlantı kuran bir işlem yoktur. Dosya silme komutu olarak yalnızca boş klasörü kaldırabilen RmDir kullanılır. Makro Windows Shell nesnesini kullandığı için Windows ortamında çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açıp ExcelDestek makrosunu seçin ve çalıştırın. Makroyu bir düğmeye veya şekle atayarak da çalıştırabilirsiniz.
3. Açılan pencerede çıkartılacak ZIP dosyasını seçin.
4. İşlem tamamlanınca mesaj kutusunda gösterilen yolu kontrol edin; klasörü görmek için Evet düğmesine tıklayın.