返回列表下一主題上一主題發帖

請問櫃買中心個股年成交資訊的查詢?查詢鈕消失了!

linch

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WINDOWS 7
軟體版本: OFFICE 2007
閱讀權限: 10
性別: 男
註冊時間: 2014-1-17
最後登錄: 2014-1-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-1-17 01:06 | 只看該作者

請問櫃買中心個股年成交資訊的查詢?查詢鈕消失了!

請教各位大大~
之前小弟是用櫃買中心這個網址下載資訊,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