stillfish00

¦^´_ 1# blue2263

1. http://mops.twse.com.tw/mops/web/ajax_stapap1?encodeURIComponent=1&step=1&firstin=1&off=1&queryName=co_id&TYPEK=all&isnew=false&co_id=1101&year=102&month=11

½Æ»s¥N½X

co_id=1101&year=102&month=11  

GBKEE

¦^´_ 1# blue2263
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub ¤½¶}¸ê°Tºô­¶()
   
3.     Dim A As Object, E As Object
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True
   
6.         ' .Navigate "http://mops.twse.com.tw/mops/web/t164sb04"     'ºô§}:ºî¦X·l¯qªí
   
7.         .Navigate "http://mops.twse.com.tw/mops/web/stapap1"        'ºô§}:¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê
   
8.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
   
9.             .document.getElementById("isnew").Value = "false"       '¿ï¾Ü: ¾ú¥v¸ê®Æ
   
10.             'µù¸Ñ¤W¤@¦æµ{¦¡½X¬° -> ¿ï¾Ü: ³Ì·s¸ê®Æ,¤£·|°õ¦æ If ¤ºµ{¦¡½X
    
11.            
    
12.             If .document.getElementById("isnew").Value = "false" Then
    
13.              .document.getElementById("isnew").FireEvent ("onchange")
    
14.                 .document.getElementById("year").Value = "102"       '¦~«×
    
15.                 '.document.getElementById("season").Value = "01"    'ºî¦X·l¯qªí:²Ä1©u(©u§O)
    
16.                 .document.getElementById("month").Value = "08"      '¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê®Æ:¤ë¥÷
    
17.             End If
    
18.             '********************************************************************
    
19.            For Each A In .document.getelementSbyTAGNAME("INPUT")
    
20.                 If A.Name = "co_id" Then A.Value = "2303"            'ªÑ²¼¥N¸¹
    
21.                 If A.Value = " ·j´M " Then A.Click                     '«ö¤U ·j´M
    
22.             Next
    
23.             Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
24.             For Each E In .document.ALL.TAGS("div")
    
25.                 If E.ID = "table01" Then
    
26.                     .document.body.innerHTML = E.outerHTML
    
27.                     .ExecWB 17, 2       '  Select All
    
28.                     .ExecWB 12, 2       '  Copy selection
    
29.                     With ActiveSheet
    
30.                         .Cells.Clear
    
31.                         .Cells(1).Select
    
32.                         .PasteSpecial Format:="HTML"
    
33.                     End With
    
34.                 End If
    
35.             Next
    
36.         .Quit                          'Ãö³¬ IE
    
37.     End With
    
38. End Sub

½Æ»s¥N½X