ADO AdoX Katalog ile Dosya İçeriğini Görüntüleme

Bu dosya, seçilen bir Excel çalışma kitabını açmadan içindeki sayfaları ve sayfa verilerini görüntülemeyi gösteren bir VBA örneğidir. Dosya yolu seçildiğinde sayfa adları ağaç yapısında listelenir, bir sayfa adına tıklandığında o sayfanın verileri liste kutusunda gösterilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Boş bir sayfadır, A1 hücresinde veri yoktur; üzerinde formu açan bir komut düğmesi bulunur.
• UserForm1: Dosya yolunu gösteren bir ComboBox1, sayfa adlarını gösteren bir trw1 (TreeView) denetimi, sayfa verilerini gösteren bir ListBox1 ve kapatma düğmesi içeren kullanıcı formudur.

Makrolar​

• Workbook_Open: Dosya açıldığında UserForm1 formunu otomatik olarak gösterir.
• CommandButton1_Click (Sayfa1): Formu yeniden açar. Form üzerindeki aynı adlı düğme ise formu kapatır.
• ComboBox1_DblClick: Kutuya çift tıklandığında dosya seçme penceresi açılır (*.xl* uzantılı dosyalar). Seçilen dosyaya bağlantı kurulur, ADOX Catalog nesnesiyle dosyadaki sayfalar okunur ve sayfa adları ağaçta, dosya adının altında alt öğe olarak eklenir. Sayfa adlarındaki "$" işareti ayıklanır.
• trw1_NodeClick: Tıklanan sayfa adı için ADO Recordset ile bir sorgu çalıştırılır ve sonuç ListBox1 içine aktarılır. Sorgu şu biçimdedir:
  
  Excel formülü

  ="select * from [" & Node.Text & "$]"

• trw1_BeforeLabelEdit: Ağaçtaki adların elle değiştirilmesini engeller.
• Baglanti_Yap: Excel sürümüne göre bağlantı dizesini belirler. 12.0, 14.0, 15.0 ve 16.0 sürümlerinde Microsoft.ACE.OLEDB.12.0, diğer sürümlerde Microsoft.Jet.OLEDB.4.0 sağlayıcısı kullanılır; ilk satır başlık olarak kabul edilir (HDR=YES).

Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur; seçilen dosya yalnızca okunur.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin; form kendiliğinden görüntülenir.
2. Üstteki kutuya çift tıklayın ve incelemek istediğiniz Excel dosyasını seçin.
3. Ağaçta dosya adının altında listelenen sayfa adlarından birine tıklayın.
4. Sayfanın verileri liste kutusunda görüntülenir.
5. Formu kapatmak için kapat düğmesini kullanın; yeniden açmak için Sayfa1 üzerindeki düğmeye basın.

Sayfa verilerini okumak için bilgisayarda ACE veya Jet OLEDB sağlayıcısının kurulu olması gerekir.