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

[µo°Ý] ¦p¦ó¤U¸üºô­¶»ù¶q©ú²Ó

[µo°Ý] ¦p¦ó¤U¸üºô­¶»ù¶q©ú²Ó

https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html
·Qcopy¤W¤èºô§}»ù¶q©ú²Ó
½Ð°Ý­n¦p¦ó¥Îexcel vba¹F¦¨?

±À¤@¤U
½Ð°Ý¦³¤j¤jª¾¹D¦p¦ó¤U¸üª©¥D´£¨Ñªººô¯¸¶Ü?
https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html
¤p§Ì¤]ºÃ´b¤¤

¥t¥~¤@­Ó¥i¥H¤U¸üªººô¯¸
¤@¦¸¥u·|Åã¥Ü³Ì¦h300µ§¸ê®Æ
ÁÙ¬O¦³¤H·|±±¨î¥i¥HÅã¥Ü©Ò¦³ªº¸ê®Æ¤]¥i¥H
https://ww2.money-link.com.tw/TWStock/StockTick.aspx?SymId=2330

¤]ÁÙ¦³¤@­Óºô¯¸¥i¥H¤U¸ü©ú²Ó,¤]¬O§¹¾ãªº
https://www.moneynet.com.tw/stoc ... 2%E9%9B%9C%E8%AA%8C
¦ý¦¹ºô¯¸¦ü¥G§ó½ÆÂø,¦³¤H¥i¥H¤À¨É¤@¤U¦p¦ó¤U¸ü§¹¾ãªº»ù¶q©ú²Ó¶Ü?
PKKO

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2020-6-16 04:39 ½s¿è

¦^´_ 2# PKKO

GBKEE¤j,5/10¦b³o¸Ì¦³¦^µª¹L,2½g¤å³¹¤]¤~®t10¤Ñ
http://forum.twbts.com/thread-22543-1-1.html
  1. Sub Ex()
  2.     Dim R As Integer, C As Integer
  3.    
  4.     With CreateObject("InternetExplorer.Application")
  5.        .Visible = True
  6.         .Navigate "https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html"
  7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  8.         With .Document.all.tags("table")(2)
  9.             For R = 0 To .Rows.Length - 1
  10.                 For C = 0 To .Rows(R).Cells.Length - 1
  11.                     ActiveSheet.Cells(R + 1, C + 1) = .Rows(R).Cells(C).innerText
  12.                 Next
  13.             Next
  14.         End With
  15.         .Quit
  16.       End With
  17. End Sub
½Æ»s¥N½X
https://www.mobile01.com/topicdetail.php?f=511&t=4737630
¹ï³t«×¦³­n¨D¤£­n¿ù¹L01³o½g,«D±`§Ö
#797¦³pchomeªºcode

TOP

¥»©«³Ì«á¥Ñ PKKO ©ó 2020-6-16 11:55 ½s¿è

¦^´_ 3# quickfixer

·PÁÂ:quickfixer ¤j¤jªº¦^ÂÐ
1. ¬O§Ú¨S¦³ª¦¤å²M·¡
2. ±zªº¦^ÂЫD±`ºë·Ç
2-1. ±zªº¦^ÂЪ½±µ¦^µª¤F§Úªºµª®×,¥B¼Ð¥Ü¤F´Á¥Lªº«Øij¤å³¹,©M«Øij¤å³¹ªº¦ì¸m


    ·P¿E,¨ü¥ÎµL½a!!!
PKKO

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD