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

§ìºô­¶¨ì¤u§@ªí¡A¦³Äæ¦ì§ì¤£¨ì¡H

§ìºô­¶¨ì¤u§@ªí¡A¦³Äæ¦ì§ì¤£¨ì¡H

https://mops.twse.com.tw/mops/web/t05sr01_1
§ì¤£¨ì³Ì¥kÃ䡧¸Ô²Ó¸ê®Æ¡¨ªºÄæ¦ì ¡H¡H
sub abc12()
   Dim A As Object, E As Object
    With CreateObject("InternetExplorer.Application")
    .Navigate "https://mops.twse.com.tw/mops/web/t05sr01_1"   
  Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
            For Each E In .document.ALL.TAGS("div")
                If E.ID = "table01" Then
                    .document.body.innerHTML = E.outerHTML
               Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
                    .ExecWB 17, 2       '  Select All
                    .ExecWB 12, 2       '  Copy selection
              With ActiveSheet
                .Cells(1, 6).Select
                       .PasteSpecial Format:="HTML"
                             End With
                End If
            Next
       .Quit               
        End With
end sub

§ì¤£¨ì³Ì¥kÃ䡧¸Ô²Ó¸ê®Æ¡¨ªºÄæ¦ì ¡H¡H
sub abc12()
   Dim A As Object, E As Object
    With Create ...
t8899 µoªí©ó 2021-3-18 07:05


¸Ô²Ó¸ê®Æ¤¤ªºhtml¤º®e¡G
document.fm_t05sr01_1.SEQ_NO.value='1';document.fm_t05sr01_1.SPOKE_TIME.value='130602';document.fm_t05sr01_1.SPOKE_DATE.value='20210318';document.fm_t05sr01_1.COMPANY_ID.value='1583';document.fm_t05sr01_1.skey.value='1583202103181';openWindow(this.form ,'');

ºô­¶³sµ²
https://mops.twse.com.tw/mops/web/ajax_t05sr01_1?encodeURIComponent=1&TYPEK=all&step=1&skey=1583202103181&hhc_co_name=&firstin=true&COMPANY_ID=1583&COMPANY_NAME=&SPOKE_DATE=20210318&SPOKE_TIME=130602&SEQ_NO=1


  • ¥ý§ä¨ìhttps://mops.twse.com.tw/mops/web/t05sr01_1¤¤ºô­¶»yªk¬ÛÃö¤¸¯À
  • ¦A¤ñ¹ï¤Wªk©Ò»ÝÃöÁä¦r¥N¤J
  • ¿é¤J¥¿½Tºô§}
  • excel ²³æ¿ý»s§Y¥i¤U¸ü


TOP

¸Ô²Ó¸ê®Æ¤¤ªºhtml¤º®e¡G
document.fm_t05sr01_1.SEQ_NO.value='1';document.fm_t05sr01_1.SPOKE_TIME. ...
joey0415 µoªí©ó 2021-3-18 13:31



    §Ú¥u·Q±N¡§¸Ô²Ó¸ê®Æ¡¨§ì¤JÀx¦s®æ¤º¡A¸Ô²Ó¸ê®Æªº¤º®e¥i¥Î¶W³sµ²¤è¦¡browser ¶}±Ò¡H¡H

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD