ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

§Ú·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®¦ÁÂÁÂ

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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  

TOP

·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¤â

TOP

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

TOP

¦^´_ 4# blue2263

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

µ{¦¡½X¤¤¦³µù¸Ñ ªÑ²¼¥N½X ,¦~«×,¤ë¥÷
±N¨º¨Ç=¦r¦ê ¨ú¥N¬° A1,A2,A3
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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ÁÂÁÂ

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂg¤j¸Ñµª

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD