剛好看到這篇新聞，借引用
自己系統跑出來的：
股數分類的999旁邊的增加06期，表示999人數部分連續6期增基加了，這段期間(6期)增加188245人，同理999股數也增加5期，約增加31,477張。
結論，低於1張的零股股數已連續6周成長了，低於一張的股東多了約18萬人。
千張大戶則是近一周人數少了15個人，整體持有張數連續5周減少34萬張。
接續分析：
整體交易情況來看，外資賣滿多的，會有這個感覺的視覺感，但用2022/2/7日持有張數19,548,995來計算到上周3/11日19,093,481持股來看，其實才賣出2.3%持股。反觀投信則是增加約1.4萬張約5%；散戶連續5周增持，增加39%
人數+收盤價走勢圖，做觀察區間變化量，挖上週增加幅度超多ㄝ(左邊為最新資料)
集保整體變化：
但有一個小細節就是千張大戶變化跟外資變化的因果關係，賣關子搂。
更新：
2022.03.18 更新
2022.03.18 更新多其間變化
Hi River 你好
回覆刪除我用VBA xmlhttp寫了一支程式抓取可轉債月集保資訊,但只能抓到的th抓不到td資料,不知是何原因，在網上看到你的blog ,不知可否請你指點一下是啥問題
Sub tdcc_test()
Dim MoXML As Object
Dim MoHTML As Object
Dim tr As String
Dim td As String
Dim i As Integer
Dim j As Integer
Set MoXML = CreateObject("msxml2.xmlhttp")
Set MoHTML = CreateObject("htmlfile")
Url = "https://www.tdcc.com.tw/portal/zh/QStatWAR/indm004?SYNCHRONIZER_TOKEN=a8e37e6e-cd14-4935-a79b-8b54b488467f&SYNCHRONIZER_URI=%2Fportal%2Fzh%2FQStatWAR%2Findm004&method=submit&scope=all&stockNo=&stockName="
Cells.Clear
With MoXML
.Open "GET", Url, False
.send
If .Status = 200 Then
MoHTML.body.innerhtml = .responsetext
Set Motable = MoHTML.getElementsByTagName("table")(1)
Set trs = Motable.getElementsByTagName("tr")
For i = 0 To trs.Length - 1
Set tds = trs(i).getElementsByTagName("td")
If tds.Length = 0 Then Set tds = trs(i).getElementsByTagName("th")
For j = 0 To tds.Length - 1
Cells(i + 1, j + 1) = tds(j).innertext
Next
Next
End If
End With
Set MoHTML = Nothing
Set MoXML = Nothing
'Set table = Nothing
End Sub
https://riverfootmark.blogspot.com/2022/03/so-easy-part1.html
刪除參考。
真心建議用網站上的"下載"內容一次處理完，也對該網站比較"有禮貌"
作者已經移除這則留言。
回覆刪除