Kapalı Dosyadan sayfa Adı Bulma

Bu şablon, bilgisayardaki bir Excel dosyasının sayfa adlarını dosyayı açmadan listelemek için hazırlanmıştır. Dosya seçilir, sayfa adları ADO bağlantısı ile okunur ve kontrol sayfasına yazılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• kontrol: Sonuçların yazıldığı sayfa. A sütununda "Sayfa Isimleri", B sütununda "Bulundugu Dosya Ismi" başlığı yer alır. Dosyadaki örnek listede Alt Grup, Ana Grup, Beden Grup, Beden Kodu, Bilnex Stok, Bilnex Transfer, Cari Kartlar Bilnex, Kategori, Marka, Renk Grup ve Renk Kodu gibi sayfa adları bulunur.
• UserForm1: İçinde yalnızca boş bir UserForm_Click yordamı bulunan form; işlevi yoktur.
• Modul1: Asıl makro kodunun bulunduğu modül.

Dosyada hücre formülü kullanılmamıştır; tüm işlem makro ile yapılır.

Makrolar​

• SayfaisimleriniBulmaGenel: Önce kontrol sayfasının içeriğini temizler. Ardından "Sayfalari Aranacak Dosya Secin..." başlıklı bir dosya seçme penceresi açar; pencerede yalnızca Excel dosyaları (*.xl*) listelenir. Seçilen dosya makroyu içeren dosyanın kendisi değilse sayfa adlarını alır, A2 hücresinden aşağıya yazar ve B sütununa her satır için seçilen dosyanın adını ekler. Son olarak sütun genişliklerini otomatik ayarlar.
• sayfaisimlerinial: Yardımcı yordamdır. Microsoft.ACE.OLEDB.12.0 sağlayıcısıyla seçilen dosyaya ADODB bağlantısı kurar, şema tablosundaki tablo adlarından sonu "$" ile biten kayıtları sayfa adı olarak ayıklar ve diziye aktarır. Dosyaya yalnızca okuma amaçlı bağlanılır; silme ya da dış ağ bağlantısı yapan bir kod yoktur.

Makro, bilgisayarda ACE OLEDB sağlayıcısının (Access Database Engine) kurulu olmasını gerektirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile SayfaisimleriniBulmaGenel makrosunu çalıştırın.
3. Açılan pencereden sayfa adları alınacak Excel dosyasını seçin.
4. kontrol sayfasında sayfa adları ve dosya adı listelenir.

Makro her çalıştığında önceki liste silindiği için gerekli sonuçları başka bir yere kopyalayın.