- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 56
- 點名
- 0
- 作業系統
- XP SP3
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2011-4-29
- 最後登錄
- 2021-10-29
|
[發問] 如何用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
|
|
發表於 2015-2-10 23:44
| 
