Kapalı Excel Dosyasından Veri Alma

Bu kaynak, ADO yöntemini kullanarak kapalı bir Excel dosyasındaki verilerin açık bir dosyaya nasıl aktarılacağını gösterir. ADO, büyük verilerle çalışırken formül ya da döngülü makrolara göre çok daha hızlı sonuç verir.

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

Dosyanın içeriği​

İndirdiğiniz zip dosyasında iki Excel dosyası bulunur: veri kaynağı olan kapali.xlsx ve makronun bulunduğu acik.xlsm.

• Sayfa1: Sayfada Adı, Soyadı ve Doğum Yeri başlıkları yer alır. Açık dosyada makro çalışınca kapalı dosyadaki kayıtlar A2 hücresinden başlayarak bu başlıkların altına yazılır.

Makrolar​

Dosyada Module1 içinde Ado_Kapali adlı tek bir makro vardır. Makro şunları yapar:

1. Microsoft.Ace.Oledb.12.0 sağlayıcısıyla, açık dosya ile aynı klasördeki kapali.xlsx dosyasına bağlanır.
2. Sayfa1 üzerinde Adı, Soyadı ve Doğum Yeri sütunlarını seçen bir sorgu çalıştırır. Sorguda kriter olmadığı için tüm kayıtlar gelir.
3. Sonuçları CopyFromRecordset ile A2 hücresinden itibaren sayfaya aktarır.
4. Bağlantıyı ve nesneleri kapatıp bellekten temizler.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem bulunmaz. Makro yalnızca aynı klasördeki kapali.xlsx dosyasını okur.

Nasıl kullanılır​

1. Zip dosyasındaki iki dosyayı da aynı klasöre çıkarın. Zip içinden açılan dosya hata verecektir.
2. acik.xlsm dosyasını açın ve makroları etkinleştirin.
3. Alt+F8 ile Ado_Kapali makrosunu çalıştırın.
4. Kapalı dosyadaki veriler Sayfa1'e aktarılır.
5. Kriter bazlı sorgular için Sorgu satırındaki SQL ifadesini değiştirebilirsiniz.

Not: ADO ile yalnızca kapalı Excel dosyalarından değil, aynı dosyanın başka sayfalarından, Access dosyalarından ve SQL Server'dan da veri alabilirsiniz. Kriterli örnekler için sitede "ADO" kelimesiyle arama yapabilirsiniz.