- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- OFFICE 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-1-17
- 最後登錄
- 2014-1-17
|
請問櫃買中心個股年成交資訊的查詢?查詢鈕消失了!
請教各位大大~
之前小弟是用櫃買中心這個網址下載資訊,http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php,
先自動在input_stock_code欄位輪流輸入要查的股票代號,之後再利用getElementsByTagName("input") 按下按鍵進行查詢
但是櫃買中心改版後查詢鈕消失了,所以原先的寫法無法再叫出下一檔個股的資訊~
輸完股票代號後還要用左鍵點選代號欄位,再按下enter才會跑出下一檔個股的資訊
請問該如何修改呢?
可以麻煩幫小弟看一下嗎~
謝謝^^
myURL = "http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php"
myDOC1.Location.Replace myURL
myDOC1 = myIE1.Document
While .Busy Or .ReadyState <> READYSTATE_COMPLETE
Wend
myDOC1.all.Item("input_stock_code").Value = Code
Dim Inputs, theBtn
Set Inputs = myDOC1.getElementsByTagName("input")
Set theBtn = Inputs(Inputs.Length - 2)
theBtn.Click |
|