Function Shd_Ma(XMLfilename)
' XMLfilename: mang 1 chieu chua cac duong dan toi tap tin XML
' Doc truong DLieu cua DLHDon/TTKhac/TTKhac/TTin ma co truong TTruong = "TransactionID"
' hoac DLHDon/TTChung/TTKhac/TTin ma co TTruong = "MaŢ TC"
' ham tra ve mang 2 chieu: cot 1 la So Hoa Don, cot 2 la Ma
Dim k As Long, result(), xmldoc As Object, ttkhac As Object, node As Object
Set xmldoc = CreateObject("MSXML2.DOMDocument")
xmldoc.async = False
ReDim result(1 To UBound(XMLfilename), 1 To 2)
For k = 1 To UBound(XMLfilename)
If xmldoc.Load(XMLfilename(k)) Then
result(k, 1) = xmldoc.DocumentElement.SelectSingleNode("DLHDon/TTChung/SHDon").Text
Set ttkhac = xmldoc.DocumentElement.SelectSingleNode("DLHDon/TTKhac")
If Not ttkhac Is Nothing Then
For Each node In ttkhac.ChildNodes
If node.SelectSingleNode("TTruong").Text = "TransactionID" Then
result(k, 2) = node.SelectSingleNode("DLieu").Text
Exit For
End If
Next node
End If
If IsEmpty(result(k, 2)) Then
Set ttkhac = xmldoc.DocumentElement.SelectSingleNode("DLHDon/TTChung/TTKhac")
If Not ttkhac Is Nothing Then
For Each node In ttkhac.ChildNodes
If node.SelectSingleNode("TTruong").Text = "M" & ChrW(227) & " TC" Then
result(k, 2) = node.SelectSingleNode("DLieu").Text
Exit For
End If
Next node
End If
End If
End If
Next k
Shd_Ma = result
Set xmldoc = Nothing
End Function
Sub doc_Ma()
Dim k As Long, result, XMLfilename, kq()
XMLfilename = Application.GetOpenFilename("XML files (*.xml), *.xml", Title:="Hay chon mot hoac nhieu tap tin", MultiSelect:=True)
If IsArray(XMLfilename) Then
result = Shd_Ma(XMLfilename)
ThisWorkbook.Worksheets("Sheet1").Range("A2").Resize(UBound(result, 1), UBound(result, 2)).Value = result
End If
End Sub
