ADO ile XML Dosyası Yapma

Bu dosya, Excel çalışma sayfasındaki bir veri listesini ADO (ActiveX Data Objects) kullanarak XML dosyasına dönüştüren bir makro örneğidir. Veriler SQL sorgusuyla okunur ve ADO Recordset yapısıyla XML biçiminde diske kaydedilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Liste: A1:E22 aralığında, XML'e aktarılacak veri tablosunu içerir. İlk satır alan (sütun) başlıkları olarak kullanılır.

Dosyada formül, grafik, tablo veya pivot tablo bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

• exceldestek (Module1): Çalışma kitabının kendisine ACE OLEDB 12.0 sağlayıcısı üzerinden bağlanır. Bağlantıda HDR=Yes ayarı ile ilk satır başlık kabul edilir, IMEX=1 ayarı ile karışık veri tipleri metin olarak okunur.
• Ardından Select * from [Liste$] sorgusuyla Liste sayfasındaki tüm kayıtlar bir Recordset içine alınır.
• Kayıt varsa Recordset, adPersistXML biçiminde çalışma kitabıyla aynı klasöre Table1.xml adıyla kaydedilir. Sonunda Recordset ve bağlantı kapatılır.

Makro dosya silme veya dış bağlantı gibi işlemler yapmaz; yalnızca çalışma kitabını okur ve aynı klasöre bir XML dosyası yazar. Aynı adlı bir Table1.xml varsa üzerine yazma davranışı ADO'ya aittir; mevcut dosyanın yedeğini almanız önerilir.

Nasıl kullanılır​

1. Dosyayı bilgisayarınıza kaydedin ve açarken makroları etkinleştirin. Dosyanın kaydedilmiş bir klasörde olması gerekir, çünkü yol ThisWorkbook.FullName üzerinden alınır.
2. Liste sayfasındaki verileri kendi kayıtlarınıza göre düzenleyin; ilk satırda başlıklar yer almalıdır.
3. Alt+F8 ile makro listesini açın, exceldestek makrosunu seçip Çalıştır düğmesine basın.
4. Dosyanın bulunduğu klasörde oluşan Table1.xml dosyasını kontrol edin.

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