stillfish00

¦^´_ 1# justintoolbox
¤é´Á­n¤U¿ï³æ­ì¥»´N¦³¤~¦æ

1. Sub Ex()
   
2.     my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         .navigate my_url
   
6.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
7.         With .document
   
8.             For Each A In .getElementsByTagName("SELECT")
   
9.                 If A.Name = "SCA_DATE" Then
   
10.                     For Each opt In A.Options
    
11.                         If opt.innerText = "20150522" Then
    
12.                             opt.Selected = True
    
13.                             Exit For
    
14.                         End If
    
15.                     Next
    
16.                     Exit For
    
17.                 End If
    
18.             Next
    
19.         End With
    
20.         .Quit
    
21.     End With
    
22. End Sub

½Æ»s¥N½X