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

[µo°Ý] ¤W¥«­ÓªÑ¤é¦¨¥æ¸ê°T¤U¸ü§ïª©«Øij

¦^´_  t8899
¦Û¤v½m²ß¬Ý¬Ý
joey0415 µoªí©ó 2017-6-3 20:50


¦A½Ð±Ð¤@¤U­±³o­Ó
http://www.twse.com.tw/zh/page/trading/exchange/TWT48U.html
  («ö·Ó°£Åv°£®§¤é´Á¥Ñ¤p¨ì¤j±Æ§Ç)

TOP

TOP

¦^´_  t8899
joey0415 µoªí©ó 2017-6-22 18:29

¥i¥H«ö·Ó¤é´Á¥Ñ¤p¨ì¤j±Æ§Ç¶Ü?

TOP

¦^´_ 33# t8899

³£¥i¥H¦Û¤v¸ü¤Jexcel

¦Û¤w¿ý»s¤@¤U±Æ§ÇÀ³¸Ó«Ü²³æ

½m²ß¬Ý¬Ý

TOP

¦^´_  t8899

³£¥i¥H¦Û¤v¸ü¤Jexcel

¦Û¤w¿ý»s¤@¤U±Æ§ÇÀ³¸Ó«Ü²³æ

½m²ß¬Ý¬Ý
joey0415 µoªí©ó 2017-6-22 18:37


½Ð±Ð³s±µ®Éµ¥4¬í¦pªG¨S¦^À³´N¸õ¥X¡A­n¦p¦ó§ï??
  Application.ScreenUpdating = False
    Sheets("Sheet5").Select
Cells.ClearContents
ddd = "URL;http://www.twse.com.tw/exchangeReport/TWT48U?response=html"
With ActiveSheet.QueryTables.Add(Connection:=ddd, Destination:=Range("$A$1"))
.WebTables = "1"
.Refresh BackgroundQuery:=False
End With

TOP

¦^´_ 35# t8899

©xºôªº°ÝÃD¡A¹L¤@°}¤l´N¥¿±`

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD