E Beratları(Xml formatından Excel'e) Excel'de Açma

[hamitcan]

Arkadaşlar merhaba,
Xml formatındaki E Beratları, Excel'e aktarmak istiyorum. Teşekkürler...

 

[Haluk]

E-Berat nedir bilmiyorum ama, örnek bir XML eklerseniz duruma bakılabilir....

.

 

[Zeki Gürsoy]

Haluk Bey; E-Berat kısaca muhasebe defterlerinin Gelirler İdaresi'ne aktarılan XML biçimindeki ham muhasebe verileridir. Dosya veri büyüklüğü fazla ve özel bilgiler içerdiğinden örnek dosya eklenmesi zor görünüyor. Sanırım mesleğe mensup üyeler bu konuda en iyi yardımcı olabilir.

.

 

[Haluk]

Zeki Bey, o zaman iş size düştü demektir

.

 

[hamitcan]

Üstadlar böyle bir kod buldum. Excel'de açtırıyorum. Aslında tüm beratları bir yere kaydedip sonra tek tek açıp Excel'de bazı alanları(ETTN, Oluşturma Tarihi vb...) bir yere kopyalayıp bir tablo oluşturacağım.

Sub ImportXMLtoList()
 Dim strTargetFile As String
 Application.DisplayAlerts = False
 strTargetFile = GIB-1000000000-202101-KB-000000.xml"
 Workbooks.OpenXML Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList
 Application.DisplayAlerts = True

End Sub