Query _ retail family, _ retail family

Query _ retail family, _ retail family

Sub query _ retail family () Cells. clear On Error Resume Next Set hf = CreateObject ("htmlfile") With CreateObject ("WinHttp. winHttpRequest.5.1 ") For p = 1 To 15. open "GET", "http://www.shdjt.com/gpdm.asp? Gpdm = 002463 & page = "& p, False. setRequestHeader "Connection", "keep-alive ". setRequestHeader "Accept-Language", "zh-cn ". send q = BytesToBstr (. responseBody, "GB2312") '. Therefore, use Adodb. stream object, from. responseBody returns the string hf. body. innerhtml = q n = Range ("a65536 "). end (xlUp ). row Set r = hf. getElementById ("senfe "). rows For I = 2 To r. length-2 For j = 0 To r (I ). cells. length-1 Cells (I-1 + n, j + 1) = r (I ). cells (j ). innerText Next j Next I Next p End WithEnd SubFunction BytesToBstr (strBody, CodeBase) 'Use Adodb. stream object extract string Dim objStream Set objStream = CreateObject ("Adodb. stream ") With objStream. type = 1' binary. mode = 3' read/write. open. write strBody 'binary array written into Adodb. inside the Stream object. position = 0' Position start with 0. type = 2' string. charset = codebase' data encoding format BytesToBstr =. readtext' to obtain the string End With objStream. close Set objStream = NothingEnd Function 'note that in the first line of code, CodeBase = "GB2312" indicates that the obtained webpage content is in GB2312 encoding format. If garbled characters appear, so replace it with Coding $ = "UTF-8", 'gb2312/BIG5/UTF-8

How can we find stocks with larger inflection points in the retail family?

Let's look at the market, policy trends, and enterprise performance! Every stock has a major shareholder. As long as you grasp the movements of the shareholders, you have only the power to collect fishermen! O (∩) o haha!
 
Why can't the retail family go up today? Blocked?

No. I just returned it.