§ìºô¶¨ì¤u§@ªí¡A¦³Äæ¦ì§ì¤£¨ì¡H
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-23
|
§ìºô¶¨ì¤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 |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
§ì¤£¨ì³Ì¥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¸ü
|
|
|
|
|
|
|
- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-23
|
¸Ô²Ó¸ê®Æ¤¤ªº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 |
|
|
|
|
|
|