Kayıtlı HTML dosyasından veri alma

[umit1907]

Merhabalar
Bilgisayarda kayıtlı HTML veya XML E-Fatura dosyasındaki bilgilerden bazılarını excel dosyasına çekebilirmiyiz. Örneğin faturalarda kayıtlı adresleri veya fatura açıklamalarını. Bir örnek dosya eklemeye çalıştım yardımcı olabilirmisiniz.

 

[Asri]

XML için aşağıdaki kodu deneyiniz.

Sub xmloku()
    Dim Dosya As String, Klasor As String, i As Integer, Deg
    Range("A:D").Clear
    Range("A1").Value = "Fatura No"
    Range("B1").Value = "Firma"
    Range("C1").Value = "Kesilen Firma"
    Range("D1").Value = "Kesilen Adres"
    Range("E1").Value = "Açıklama"
    
    
   [COLOR=Red] Klasor = "D:\temp\efatura\xml\*.xml"

[/COLOR]     Dosya = Dir(Klasor)
    i = 1
    While Dosya <> ""
      i = i + 1
      Set oXMLFile = CreateObject("Microsoft.XMLDOM")

      [COLOR=red]XMLFileName = "D:\temp\efatura\xml\" & Dosya

[/COLOR]       oXMLFile.Load (XMLFileName)
      Set kesilenNodes = oXMLFile.SelectNodes("/PURCHASE_INVOICES/INVOICE/ARP_DEF/text()")
      Set adresNodes = oXMLFile.SelectNodes("/PURCHASE_INVOICES/INVOICE/ARP_STREETNAME/text()")
      Set faturaNodes = oXMLFile.SelectNodes("/PURCHASE_INVOICES/INVOICE/NUMBER/text()")
      Set adresNodes = oXMLFile.SelectNodes("/PURCHASE_INVOICES/INVOICE/ARP_STREETNAME/text()")
      Set kesenNodes = oXMLFile.SelectNodes("/PURCHASE_INVOICES/INVOICE/SENDER_DEF/text()")
    
    
      Range("A" & i).Value = faturaNodes(0).NodeValue
      Range("B" & i).Value = kesenNodes(0).NodeValue
      Range("C" & i).Value = kesilenNodes(0).NodeValue
      Range("D" & i).Value = adresNodes(0).NodeValue
      Dosya = Dir
    Wend
End Sub

 

[umit1907]

Abi süpersin eline sağlık. Allah razı olsun.

 

[umit1907]

Asri abi kusura bakama faturalarda tanımladığımız alanlar boş olduğu zaman run time error 91 hatasını veriyor.

 

[Asri]

Asri abi kusura bakama faturalarda tanımladığımız alanlar boş olduğu zaman run time error 91 hatasını veriyor.

Boş olma ihtimali var ise kodun başına

On Error Resume Next

kodunu ekleyin.

 

[umit1907]

Teşekkürler.