D
Deleted member 293
Guest
Kính gửi anh chị
Em có code như sau, không lấy được giá trị trả về :
Em không lấy được dữ liệu ở đây:
Em kiểm tra thì status chẳng có giá trị gì. Không nothing cũng không Empty.
Ở trong Function, em đã đưa được dữ liệu vào trong statusData .
Win 10 64bit.
Office 2016 64bit.
Em có code như sau, không lấy được giá trị trả về :
Mã:
Function getStatus(ByVal number As String) As Object
Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "POST", "http://xxxURL", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send number
Do While http.readyState < 4
DoEvents
Loop
Dim html As Object
Set html = CreateObject("htmlFile")
html.write http.responseText
Dim statusData As Object
Set statusData = html.getElementsByClassName("aaa")
Do While statusData(0) = Empty
DoEvents
Loop
Set getStatus = statusData
End Function
Sub aaa()
Dim number As String
number = Range("A2").Value
Dim status As Object
Set status = getStatus(number)
Dim cnt As Long
cnt = status.Length
'Xuat du lieu ra Excel'
End Sub
Mã:
cnt = status.Length
Ở trong Function, em đã đưa được dữ liệu vào trong statusData .
Win 10 64bit.
Office 2016 64bit.