- 帖子
- 23
- 主題
- 0
- 精華
- 0
- 積分
- 73
- 點名
- 131
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-4-21
- 最後登錄
- 2024-5-20
          
|
我用Win7+IE11 改成下面代碼就可以顯示全部，你可以試試看...- Option Explicit
- Sub Ex()
- Dim my_url As String, A As Object, evt As Object
- my_url = "http://www.tpex.org.tw/web/stock/exright/preAnnounce/PrePost.php"
- With CreateObject("InternetExplorer.Application")
- .Visible = True
- .Navigate my_url
- Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
-
- Set evt = .document.createEvent("HTMLEvents")
- evt.initEvent "change", True, False
-
- With .document
- For Each A In .getElementsByTAGName("SELECT")
- If A.Name = "PrePost_result_length" Then
- A.Value = -1
- 'A.fireEvent ("onchange")
- A.dispatchEvent evt
- End If
- Next
- End With
- End With
- End Sub
|
|
發表於 2015-6-20 15:51
| 