網頁控制出了問題！請高手指點。 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 網頁控制出了問題！請高手指點。

返回列表下一主題上一主題發帖

網頁控制出了問題！請高手指點。

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 73
點名: 63
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2012-4-21
最後登錄: 2025-3-13

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 »

發表於 2015-6-20 15:51 | 顯示全部帖子

我用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

複製代碼

靜思自在 : 願要大、志要堅、氣要柔、心要細。

返回列表下一主題上一主題