Kapalı Dosyadan Hızlı Kopyalama

Bu dosya, başka bir Excel dosyasını açmadan içindeki verileri okuyup aktif sayfaya yazan bir VBA örneğidir. Veri okuma işlemi ExecuteExcel4Macro ile yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sonuc: A1:B23 aralığını kullanan tek sayfadır. Kapalı dosyadan alınan veriler bu sayfaya yazılır. Sayfada CommandButton1 adlı bir düğme bulunur.
• Dosyada formül, tablo, grafik, pivot tablo ya da tanımlı ad yoktur; işlem tamamen makroyla yapılır.

Makrolar​

• CommandButton1_Click (Sayfa1): Düğmeye tıklandığında VerileriAl makrosunu çalıştırır.
• VerileriAl (Module1): Kaynak dosya olarak, bu dosyayla aynı klasördeki kapalı.xlsx dosyasını, kaynak sayfa olarak veriler sayfasını kullanır. 3. satırdan 23. satıra kadar döngüyle ilerler; kapalı dosyadaki 2. sütunu (B) bu dosyanın A sütununa, 5. sütunu (E) B sütununa yazar. Daha fazla sütun almak için koddaki Cells/Excel4 satırını çoğaltabilirsiniz.
• Excel4 (Module1): Dosya yolu, sayfa adı, satır ve sütun numarasına göre ExecuteExcel4Macro ile ilgili hücrenin değerini döndüren yardımcı fonksiyondur.

Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem görünmemektedir; yalnızca yerel klasördeki dosyadan okuma yapılır.

Nasıl kullanılır​

1. Dosyayı zip arşivinden çıkarın ve makroları etkinleştirerek açın.
2. Verisini almak istediğiniz dosyanın adını kapalı.xlsx yapıp bu dosyayla aynı klasöre koyun; içinde veriler adlı bir sayfa bulunmalıdır.
3. Gerekirse VerileriAl içindeki sayfa adını, satır aralığını (3-23) ve sütun numaralarını (2 ve 5) kendi verinize göre değiştirin.
4. Sonuc sayfasındaki düğmeye tıklayın; veriler A ve B sütunlarına aktarılır.