GBKEE

¦^´_ 1# justintoolbox
¤]¥iÅã¥Ü¸ê®Æ¤é´Á

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim my_url, A, AR(), i As Integer, Msg As Integer
   
4.     Dim Sca_Date As String
   
5.     Sca_Date = "2015020"  'µ¹¿ù»~ªº¤é´Á
   
6.     'Sca_Date = "20150105"
   
7.     my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
8.    
   
9.     With CreateObject("InternetExplorer.Application")
   
10.         .Visible = True
    
11.         .Navigate my_url
    
12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
13.         For Each A In .document.getelementsbytagname("SELECT")
    
14.             If A.Name = "SCA_DATE" Then
    
15.                 ReDim AR(1 To A.Length)
    
16.                 For i = 1 To A.Length  '«ü"SELECT"ªº"OPTION"¼Æ¶q
    
17.                     If Sca_Date = Trim(A(i - 1).innerHTML) Then Msg = i
    
18.                     AR(i) = A(i - 1).innerHTML  '¤é´Á¾É¤J°}¦C
    
19.                 Next
    
20.                 If Msg Then
    
21.                     A(Msg - 1).Selected = True
    
22.                 Else
    
23.                     MsgBox " ¸ê®Æ¤é´Á  ¨S¦³ " & Sca_Date & vbLf & Join(AR, vbTab)
    
24.                 End If
    
25.                 Exit For
    
26.             End If
    
27.         Next
    
28.     End With
    
29. End Sub

½Æ»s¥N½X