查詢_散戶大家庭，_散戶大家庭

查詢_散戶大家庭，_散戶大家庭

Sub 查詢_散戶大家庭()    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")                          '因此要用Adodb.Stream對象，從.ResponseBody得到字串            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)                                    '使用Adodb.Stream對象提取字串    Dim objStream    Set objStream = CreateObject("Adodb.Stream")    With objStream        .Type = 1                                                          '二進位        .Mode = 3                                                          '讀寫        .Open        .Write strBody                                                     '位元組寫入Adodb.Stream對象內部        .Position = 0                                                      '位置起始為0        .Type = 2                                                          '字串        .Charset = CodeBase                                                '資料的編碼格式        BytesToBstr = .ReadText                                            '得到字串    End With    objStream.Close    Set objStream = NothingEnd Function    '注意第一行代碼中CodeBase = "GB2312" 表示擷取的網頁內容為GB2312編碼格式，如果出現亂碼，那麼就換成 Coding$ = "utf-8"，'GB2312/BIG5/UTF-8

在散戶大家庭裡怎找到拐點比大的股票

那就要從市場、政策動向、企業業績等來看啊！每隻股票都有大股東的啊，只要抓住股東的動向，那你就只有坐收漁翁之力了啊！o(∩_∩)o 哈哈！
 
散戶大家庭今天怎上不去了？被封了？

沒有啊，我剛才還上了。