GBKEE

¦^´_ 2# justintoolbox

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim my_url As String, A As Object
   
4.     my_url = "http://www.tpex.org.tw/web/stock/exright/preAnnounce/PrePost.php"
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Visible = True
   
7.         .Navigate my_url
   
8.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
9.         With .document
   
10.                For Each A In .getElementsByTAGName("SELECT")
    
11.                     If A.Name = "PrePost_result_length" Then
    
12.                         A.Value = -1
    
13.                         A.fireEvent ("onchange")
    
14.                     End If
    
15.                Next
    
16.         End With
    
17.    End With
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# justintoolbox
§Ú¥ÎXP, IE8 ¥iÅã¥Ü59µ§¸ê®Æ!!

GBKEE

¥i½Ð¦³IE11ªÌ©Î¨ä¥LPC¸Õ¸Õ¬Ý,¬O§_¬O§AIEªº°ÝÃD.