[µo°Ý] ¦p¦ó§ä¥Xºô¯¸­ì©lÀɺô§}

blue2263

§Ú·Q¥Îweb¬d¸ß,¤U¸ü¤½¶}Æ[´ú¯¸ªº¸ê®Æ,¨ìexcel,­n¦p¦ó§ä¥X­ì©lÀɺô§}

§Ú·Q§äªººô§}¦p¤U:¸³ºÊ¨Æ«ùªÑ¾lÃB©ú²Ó¸ê®Æ¤ºªº¾ú¥v¸ê®Æ
http://mops.twse.com.tw/mops/web/stapap1?

ÁÙ½Ð逹¤H¤j¤jÀ°¦£,·P®¦ÁÂÁÂ

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

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  

blue2263

·PÁÂG¤j¦^´_,G¤j¯u¬O¯«¤H,­ì¨ÓÁÙ¦³³oºØª½±µ¥´¶}IE¤U¸ü¸ê®Æªº§@ªk
½Ð±ÐG¤j,¤ñ¦pA1Àx¦s®æ¿é¤JªÑ²¼¥N½X,A2¦~«×,A3¤ë¥÷,§Ú­n¥ÎÀx¦s®æ¨Ó§ó§ï,§Ú­n¤U¸üªº¸ê®Æ
,¥¨¶°­n¦p¦ó§ó§ï,³Â·Ð§A¤F·P®¦
¥t¥~½Ð±ÐG¤j,¦³¨S³o¤è­±±ÀÂ˪º®ÑÄy©Î±Ðµ{,VBA§ÚÁÙ¬O­Ó¶W¯Å·s¤â

blue2263

ÁÂÁÂstillfish00 ¤j¦^´_
½Ð±Ð­ì©lÀɺô§}¬O¦p¦ó§ä¥X¨Óªº,¥i¥H±Ð§Ú¶Ü,ÁÂÁÂ

GBKEE

¦^´_ 4# blue2263

   

A1Àx¦s®æ¿é¤JªÑ²¼¥N½X,A2¦~«×,A3¤ë¥÷

µ{¦¡½X¤¤¦³µù¸Ñ ªÑ²¼¥N½X ,¦~«×,¤ë¥÷
±N¨º¨Ç=¦r¦ê ¨ú¥N¬° A1,A2,A3

blue2263

G¤j§A¦n
§Ú±N If A.Name = "co_id" Then A.Value = "2330"        'ªÑ²¼¥N¸¹
§ï¬° If A.Name = "co_id" Then A.Value = A1        'ªÑ²¼¥N¸¹
¥X²{½sĶ¿ù»~,¬O§Ú¨ºÃä§ï¿ù¤F,½ÐÀ°§Ú¬Ý¤@¤UÁÂÁÂ

GBKEE

¦^´_ 7# blue2263

A1¬O¤u§@ªí¤Wªº¦ì¸m, VBA »yªk Range("A1")

1. If A.Name = "co_id" Then A.Value =Range("A1")        'ªÑ²¼¥N¸¹

½Æ»s¥N½X

blue2263

ÁÂÁÂg¤j¸Ñµª

blue2263

¥i§_½ÐG¤j, ¦AÀ°§Ú¤U¦Cºô§},¸ê®Æ¥ÎVBA¤è¦¡¤U¸ü,µ{¦¡½X­n¦p¦ó¼g
http://www.tdcc.com.tw/smWeb/QryStock.jsp
·P®¦ÁÂÁÂ!