NHỜ ANH CHỊ GIÚP EM CÂU LỆNH NÀY VỚI Ạ (2 người xem)

[anhmo.saf07]

Em muốn lấy thông tin " Thay thế cho hóa đơn, ký hiệu: 1C25TYY, số 6, ngày 23 tháng 1 năm 2025" ở trong file bên dưới thì em dùng câu lệnh gì được ạ,
Em đang dùng lệnh bên dưới nhưng mà không đúng ạ. E biết là e sai rồi nhìn lệnh hơi kỳ nhưng em tay mơ mò code nên nhờ anh chị có kinh nghiệm hướng dẫn em sửa lệnh được không ạ.
.Offset(, 29).Value = xmlDoc.SelectSingleNode("//TTChung/TTKhac/TTin/DLieu/TTin/DLieu/TTin/DLieu").Text 'Trang thai hoa don khac

 

[ongke0711]

Bạn thử code này:

Dim list As Object, k As Long, TTruong As String

Set list = xmlDoc.SelectSingleNode("//DLHDon/TTChung/TTKhac")
For k = 0 To list.ChildNodes.Length - 1
    TTruong = list.ChildNodes(k).getElementsByTagName("TTruong")(0).Text
    If TTruong ="ProcessNote" Then
           .Offset(, 29).Value = list.ChildNodes(k).getElementsByTagName("DLieu")(0).Text
           Exit For
    Else
           .Offset(, 29).Value = "Khong co du lieu"
    End If
Next k