XML Dosyası Oluşturmak

Bu dosya, Excel sayfasındaki verilerin VBA makrosuyla XML biçiminde bir metin dosyasına aktarılmasını gösteren örnek bir çalışmadır. Makro, tablodaki satırları XML etiketleri arasına yazar ve oluşan dosyayı Not Defteri'nde açar.

Dosyanın içeriği​

• Sayfa1: A1:C17 aralığında örnek veri tablosu bulunur. A sütununda numaralar, B sütununda enstitü bilgileri yer alır.
• Modul1: exceldestek adlı makroyu içeren VBA modülüdür (36 satır).

Dosyada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

• exceldestek: Çalışma kitabının bulunduğu klasörde test.xml adlı bir dosya oluşturur. Dosyaya önce XML bildirim satırını, ardından kök etiket olan veri ve baslik etiketini (içeriği "kodlar") yazar. Sonra 1. ile 5. satırlar arasında dönerek her satır için bir veriler bloğu üretir; bu blokta A sütunu no etiketine, B sütunu Enstitü etiketine yazılır. Dosya kapatıldıktan sonra Not Defteri ile otomatik açılır.
• Hata oluşursa dosya kapatılır ve hata numarası ile hata tanımını gösteren bir uyarı penceresi açılır.
• Makro yalnızca bu klasörde test.xml dosyasını oluşturur veya aynı adlı dosyanın üzerine yazar; Not Defteri'ni başlatmak için Windows klasöründeki notepad.exe çağrılır. Dışarıya bağlantı veya dosya silme işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı indirip açın ve makroları etkinleştirin.
2. Sayfa1'de A ve B sütunlarına aktarılacak verileri girin.
3. Alt+F8 tuşlarıyla exceldestek makrosunu seçip çalıştırın.
4. Dosyanın bulunduğu klasörde oluşan test.xml, Not Defteri'nde açılır.
5. Makro yalnızca ilk 5 satırı işler; daha fazla satır için koddaki döngünün üst sınırı (5) değiştirilir.