các anh chị cho em hỏi chút về hàm StrConv trong macro excel? (1 người xem)

[truongh3t]

Em chào các anh chị.Em đang gặp một vấn đề với hàm StrConv mà tham số truyền vào là data XML

Trong code của em có đoạn:
With oInet
.HttpAction = PostAction


.AddPara "Cmd", 10

.AddPara "OrderNo", sOrderNo
.url = m_sURL & c_sURLASP
sdoc = .HttpRequest
End With
With oDoc
.async = False
If .loadXML(sdoc) = False Then
MsgBox "Loi"
GoTo Exit_Workbook_Open
End If
Set oRoot = .documentElement
End With

Tức là hàm HttpRequest luôn trả ra data XML và được gán vào sdoc
ví dụ: <test><name>通信</name><age>14</age><address>đan phượng</address></test>

Hiện tại đang chết ở đoạn loadXML(sdoc) do hàm đó không đọc được data dạng UTF8.Chính vì vậy em muốn encoding các data trong mỗi cặp thẻ XML để hàm đó có thể đọc được

Em tham khảo trên mạng thì có hàm sau:
sdoc = StrConv(UniStrToUTF8(.HttpRequest), vbUnicode)--> hàm này sẽ trả ra String và gán vào sdoc
Em đã tạo được 1 module và khai báo success hàm UniStrToUTF8
Vấn đề là em chưa biết code thế nào để có thể encoding từng giá trị trong mỗi cặp thẻ.Mà thời gian thì gấp quá rồi.

Vậy anh chị nào biết thì giúp đỡ em với ạ.Em xin cảm ơn nhiều