XML veri alma

[igultekin2000]

iyi günler;
xml dosyasında veri almak ile ilgili örnek dosya üzerindeki örnek şablona istenen satır ve sütunları ilave edilebiliyor. ayın makroyu, GIB' ten inen xml faturasında kullanmak istiyorum. mevcut kod üzerine ne değiştirmek gerekiyor, aynı şablonu kullanmak istediğimde hata veriyor. Hatayı verdiğinde "Cells(x, 1) = Tanim.Item(i).nodetypedvalue", satırını renklendiriyor. Teşekkürler.

Sub berkem()

    Cells.Clear
    Dim xDoc As Object
    Set xDoc = CreateObject("MSXML2.DOMDocument")
    xDoc.async = False
    xDoc.validateOnParse = False
    
    yol = ThisWorkbook.Path & "\"
    
    dosya = Dir(yol & "*" & ".xml", vbNormal)
    
    If dosya = "False" Then Exit Sub
    x = 1
    
    Do
    
    xDoc.Load yol & dosya
    
    Set Malzeme = xDoc.SelectNodes("//Invoice/cac:InvoiceLine/cac:Item/cbc:Name")
    Set Tanim = xDoc.SelectNodes("//Invoice/cac:InvoiceLine/cac:Item/cac:SellersItemIdentification/cbc:ID")
    Set Fatura = xDoc.SelectNodes("//Invoice/cbc:ID")
      
    For i = 0 To Malzeme.Length - 1
    
    Cells(x, 1) = Tanim.Item(i).nodetypedvalue
    Cells(x, 2) = Malzeme.Item(i).nodetypedvalue
    Cells(x, 3) = Fatura.Item(0).nodetypedvalue
    
    x = x + 1
    Next i
          
    dosya = Dir()
    
    Loop While dosya <> ""
 
Cells.EntireColumn.AutoFit

End Sub

 

[1903emre34@gmail.com]

Aşağıdaki konuyla belki işe yarayabilir.

E-Arşiv Faturayı excel'e aktarma.

https://earsivportal.efatura.gov.tr/intragiris.html portal üzerinden kestiğim faturayı, format olarak html ve .xml olarak indirebiliyorum. Benim istediğim bu formatların herhangi biri için excelden bir e-arşiv görseli hazırlayıp bu bilgileri excel e çekmek. tabi bu portal da hazırlanan...

www.excel.web.tr

 

[igultekin2000]

Aşağıdaki konuyla belki işe yarayabilir.

E-Arşiv Faturayı excel'e aktarma.

https://earsivportal.efatura.gov.tr/intragiris.html portal üzerinden kestiğim faturayı, format olarak html ve .xml olarak indirebiliyorum. Benim istediğim bu formatların herhangi biri için excelden bir e-arşiv görseli hazırlayıp bu bilgileri excel e çekmek. tabi bu portal da hazırlanan...

www.excel.web.tr

o konuyu daha öne incelemiştim