上櫃個股日成交資訊抓取問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-9-29 14:47 | 顯示全部帖子

回復 1# espionage
試試看

With CreateObject("InternetExplorer.Application") '開啟證券櫃臺買賣中心網頁
.Visible = True
.Navigate "http://www.tpex.org.tw/web/stock/aftertrading/daily_trading_info/st43.php?l=zh-tw"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
With .document
.getElementsByTAGName("INPUT")("input_stock_code").Value = stockcode
'--------------------輸入要查詢的日期
With .getElementsByTAGName("INPUT")("input_date")
.Value = yearmonth
'*********************
.fireEvent ("onchange") 'ie8可用
'新版ie 請參考 http://forum.twbts.com/thread-14308-1-1.html
'**********************
End With
End With
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-9-30 17:13 | 顯示全部帖子

回復 3# espionage
不錯是要等待網頁的資料下載完畢

Option Explicit
Sub Ex()
Dim a As Object, stockcode
With CreateObject("InternetExplorer.Application") '開啟證券櫃臺買賣中心網頁
.Visible = True
stockcode = 4111
.Navigate "http://www.tpex.org.tw/web/stock/aftertrading/daily_trading_info/st43.php?l=zh-tw"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
With .Document
.getElementsByTAGName("INPUT")("input_stock_code").Value = stockcode
'--------------------輸入要查詢的日期
With .getElementsByTAGName("INPUT")("input_date")
.Value = "104/06" ' yearmonth
'*********************
.fireEvent ("onchange") 'ie8可用
'新版ie 請參考 http://forum.twbts.com/thread-14308-1-1.html
'**********************
End With
With .getElementByID("stk_no")
Do
If .INNERTEXT = "請輸入股票代碼及資料年月" Then
MsgBox "請輸入股票代碼及資料年月"
GoTo ER
End If
Loop Until InStr(.INNERTEXT, stockcode)
End With
Set a = .getElementsByTAGName("table")
MsgBox .getElementByID("stk_no").INNERTEXT & vbLf & a(0).outertext
End With
ER:
.Quit
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 不要隨心所欲，要隨心教育自己。

上櫃 個股日成交資訊 抓取問題