XML Biçimindeki KDV Beyannamesini Excele Aktarma

Bu dosya, XML biçiminde hazırlanmış KDV beyannamesindeki "kesinti" kayıtlarını makro yardımıyla Excel sayfasına aktarır. Beyanname dosyası açılan pencereden seçilir, kayıtlar Sayfa1'in 2. satırından itibaren alt alta yazılır.

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

Dosyanın içeriği​

• Sayfa1: 1. satırda başlıklar hazır olarak gelir: A1 hücresinde SOYADI, C1 hücresinde TC KİMLİK NO, E1 hücresinde TUTAR. Aktarılan veriler A2:F sütunları arasına yazılır.
• Module1: Aktarımı yapan Test makrosunu içerir.

Dosyada formül bulunmaz; tüm veriler makro ile doldurulur.

Makrolar​

Test makrosu şu işlemleri sırayla yapar:

1. A2:F sütunlarındaki önceki verileri temizler.
2. MSXML2.DOMDocument nesnesi ile XML dosyasını okumaya hazırlanır.
3. Dosya seçme penceresini açar. Pencere makro dosyasının bulunduğu klasörde açılır ve yalnızca *.xml dosyalarını listeler. Pencere kapatılırsa makro işlem yapmadan sonlanır.
4. Seçilen XML dosyasındaki tüm kesinti etiketlerini bulur. Her kesinti kaydının alt öğelerini, kayıt başına bir satır olacak şekilde 2. satırdan itibaren soldan sağa hücrelere yazar.

Makro dosya silme veya dışarıya bağlantı gibi bir işlem yapmaz; yalnızca seçilen XML dosyasını okur.

Not: Kodda alt öğe sayısını belirleyen döngüde k değişkeni kullanılmaktadır ve bu değişken tanımlı değildir. Makro bu haliyle hata verirse, ilgili satırda k yerine i yazılması gerekir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. XML KDV beyannamenizi bu dosyayla aynı klasöre kopyalayın.
3. Alt+F8 tuşlarıyla makro listesini açın, Test makrosunu seçip çalıştırın.
4. Açılan pencerede XML beyanname dosyasını seçin.
5. Kesinti kayıtları Sayfa1'e aktarılır. Yeni bir beyanname için makro yeniden çalıştırılır; önceki veriler otomatik silinir.