帖子: 4
主題: 2
精華: 0
積分: 56
點名: 0
作業系統: XP SP3
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-4-29
最後登錄: 2021-10-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-2-10 23:44 | 只看該作者

[發問] 如何用VBA控制上櫃個股成交網頁option 控制項

各大好：
想請教一下，如何使用VBA來控制上櫃個股成交網頁(http://www.otc.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430.php?l=zh-tw)
中顯示 "全部"筆的 option 控制項，網頁中請選擇類股與資料日期的option 控制項，已經會使用VBA進行操控，可是顯示筆數資料的option 控制項好像
與Table 有相關連，故看過網頁的原始碼不知如何使用VBA進行控制，請各位大大指教，謝謝！

Sub 盤後資訊_上櫃每日收盤行情()
Dim A As Object, xDate As Date, EDATE As Date
EDATE = Date
xDate = EDATE
'*************
'xDate = Date '正式常程式碼
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.otc.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430.php?l=zh-tw"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Ie_Refresh:
With .Document
'填入類股 option "所有證券(不含權證、牛熊證)"
.ALL("sect").Value = "EW"
.ALL("sect").onchange
Application.Wait Now + TimeValue("00:00:03")
'填入資料日期 option
.ALL("input_date").Value = Format(xDate, "E/MM/DD")
.ALL("input_date").onchange
Application.Wait Now + TimeValue("00:00:03")
'?????
'顯示 "全部"筆資料的 option VBA如何寫？？
'?????
End With
Do While .Busy Or .readyState <> 4: DoEvents: Loop
If InStr(.Document.BODY.innerText, "查無資料") Then
.Quit
MsgBox Format(xDate, "E/MM/DD") & " 查無資料"
Exit Sub
End If
Set A = .Document.getElementsByTagName("table")
.Document.BODY.innerHTML = A(0).outerHTML '取"table"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
.Quit '關閉網頁
With ActiveSheet '可指定工作表
.UsedRange.Clear
.Range("A1").Select
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NOHTMLFormatting:=True
End With
End With
End Sub

複製代碼

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

2^#

發表於 2015-2-11 19:02 | 只看該作者

回復 1# hsu5120

抓這個http://www.otc.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_print.php?l=zh-tw&d=104/02/11&se=AL&s=14,desc,0

不然csv很也簡單

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

3^#

發表於 2015-2-13 17:10 | 只看該作者

回復 1# hsu5120

With .Document
'填入類股 option "所有證券(不含權證、牛熊證)"
.all("sect").Value = "EW"
.all("sect").onchange
'填入資料日期 option
.all("input_date").Value = Format(xDate, "E/MM/DD")
.all("input_date").onchange
Application.Wait Now + TimeValue("00:00:03")
' 顯示 "全部"筆資料的 option VBA如何寫？？
'顯示 ?? 資料: stk_wn1430_result_length option -1 = >"全部"
.all("stk_wn1430_result_length")(1).Value = -1
'.all("stk_wn1430_result_length")(1).Item(0).Selected = True '選第一個
.all("stk_wn1430_result_length")(1).fireEvent ("onchange")
Application.Wait Now + TimeValue("00:00:03")
End With

複製代碼

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

TOP

hsu5120

中學生 Rank: 2

帖子: 4
主題: 2
精華: 0
積分: 56
點名: 0
作業系統: XP SP3
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-4-29
最後登錄: 2021-10-29

4^#

發表於 2015-2-14 12:11 | 只看該作者

謝謝大大提供的程式碼，剛測試可以正確執行且符合我的需求，
大大真是太厲害，謝謝！
還有joey0415 也感謝提供額外資訊供參考，謝謝！
:)

TOP

h2483116

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
註冊時間: 2013-5-28
最後登錄: 2017-11-23

論壇贊助勳章

5^#

發表於 2015-2-23 22:23 | 只看該作者

joey0415大大：
可否幫忙提供一下上市股票的網址，謝謝！

TOP

GOGOPOWER

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: Windows
軟體版本: office
閱讀權限: 10
註冊時間: 2016-6-13
最後登錄: 2016-6-17

6^#

發表於 2016-6-13 21:54 | 只看該作者

回復 3# GBKEE

小第試run看看
發現可以執行在執行的過程發現網頁中的

顯示幾筆資料(全部,10,25,...)時,程式雖然會將網頁選項選為"全部"
但網頁卻沒有更新導致只有收到幾筆資料。
好像是這邊有些問題
.all("stk_wn1430_result_length")(1).fireEvent ("onchange")

TOP

c_c_lai