[µo°Ý] µLªk¦bºô­¶¿é¤J¤é´Á¸ê®Æ¡AÀ³¸Ó¦p¦ó­×¥¿¥N½X©O¡H

justintoolbox

¦U¦ì«e½ú­Ì¡A¤j®a¦n¡G

¥Ø«e¹J¨ìªº°ÝÃD¬O¡G¡y¦Û¤v³]©w¤@­Ó¤é´Á¡]¦p20150522)¨Ã¶ñ¤J¸Óºô­¶ªº¸ê®Æ¤é´ÁÄæ¦ì¡Aµ²ªG«o¬OÅܦ¨ªÅ¥Õ¡Aºô­¶µLªkÅã¥Ü§Ú¿é¤Jªº¤º®e¸Ì­±¡C¡z
·Q½Ð°Ý¥N½XÀ³¸Ó¦p¦ó­×¥¿¡A¤~¯à¸Ñ¨M³o­Ó°ÝÃD¡H
´Á±æ¦U¦ì«e½ú­Ì¯à¥X¤â¬Û±Ï... ·PÁ¡I

¥N½X¦p¤U¡G

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 A.Value = "20150522"
   
10.         Next
    
11. End With
    
12. .Quit
    
13. End With
    
14. End Sub

½Æ»s¥N½X

justintoolbox

¯uªº¤Ó´Î¤F¡I¡I¡I
¤Ó·PÁ³o¸Ìªº«e½ústillfish00 , ¶W¯Åª©¥DGBKEE¡I
¯uªº«D±`¨ü¥Î¡A¼Wªø¤F³\¦hª¾ÃÑ¡A«D±`ÁÂÁ§A­Ì¡I

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

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