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

hsu5120

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

下載 (37.92 KB)
option控制項

2015-2-10 23:42

1. Sub 盤後資訊_上櫃每日收盤行情()
   
2.     Dim A As Object, xDate As Date, EDATE As Date
   
3.     EDATE = Date
   
4.    
   
5.     xDate = EDATE
   
6.     '*************
   
7.     'xDate = Date    '正式常程式碼
   
8.     With CreateObject("InternetExplorer.Application")
   
9.         .Visible = True
   
10.         .Navigate "http://www.otc.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430.php?l=zh-tw"
    
11.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
12. Ie_Refresh:
    
13.         
    
14.         With .Document
    
15.       '填入類股 option "所有證券(不含權證、牛熊證)"
    
16.        .ALL("sect").Value = "EW"
    
17.        .ALL("sect").onchange
    
18.        Application.Wait Now + TimeValue("00:00:03")
    
19.       '填入資料日期 option
    
20.        .ALL("input_date").Value = Format(xDate, "E/MM/DD")
    
21.        .ALL("input_date").onchange
    
22.         Application.Wait Now + TimeValue("00:00:03")
    
23.       '?????
    
24.       '顯示 "全部"筆資料的 option VBA如何寫？？
    
25.       '?????
    
26.         End With
    
27.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
28.         If InStr(.Document.BODY.innerText, "查無資料") Then
    
29.              .Quit
    
30.             MsgBox Format(xDate, "E/MM/DD") & " 查無資料"
    
31.             Exit Sub
    
32.            
    
33.         End If
    
34.         Set A = .Document.getElementsByTagName("table")
    
35.            .Document.BODY.innerHTML = A(0).outerHTML '取"table"
    
36.       
    
37. 
    
38.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
39.         .ExecWB 17, 2       '  Select All
    
40.         .ExecWB 12, 2       '  Copy selection
    
41.         .Quit        '關閉網頁
    
42.          With ActiveSheet    '可指定工作表
    
43.             .UsedRange.Clear
    
44.             .Range("A1").Select
    
45.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NOHTMLFormatting:=True
    
46.         End With
    
47.            End With
    
48. End Sub

複製代碼

c_c_lai

回復 3# GBKEE
如果顯示內容如有再次 RePlay，
亦即更動，畫面應為：

下載 (64.63 KB)

2016-6-14 08:52

此類應用，與我所提問的 selectType 極為雷同。
股票資料匯入，程式執行有問題

c_c_lai

回復 3# GBKEE

下載 (73.99 KB)

2016-6-14 08:45

下載 (67.89 KB)

2016-6-14 08:46

的確如樓上大大所言，只改變了標示內容，
而未再次 RePlay All。

GOGOPOWER

回復 3# GBKEE

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

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

h2483116

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

hsu5120

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

GBKEE

回復 1# hsu5120

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

複製代碼

joey0415

回復 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很也簡單