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

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

¦^´_ 10# t8899
  1. Sub ¥¨¶°1()
  2. '
  3.     Cells.Clear
  4.     With ActiveSheet.QueryTables.Add(Connection:= _
  5.         "URL;http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170524&type=ALLBUT0999", Destination:=Range("$A$1"))
  6.         .WebTables = "5"
  7.         .Refresh BackgroundQuery:=False
  8.     End With
  9. End Sub
½Æ»s¥N½X
¤£¬O¨C­Óºô­¶³£¥i¥H «ü©wªí®æ¤U¸ü¡A¦³ªº­¶­±¥u¯à¥þ­¶¤U¸ü

TOP

¥»©«³Ì«á¥Ñ prin.huang ©ó 2017-5-24 21:24 ½s¿è
§ï¬°json®æ¦¡¡A©Î¬O¤U¸ücsvÀÉ¡A­ì¥»ªººô­¶¤U¸ü¤]¦æ
joey0415 µoªí©ó 2017-5-24 11:25


J¤j¡A³o¨â­Óºô§}±q­ì¥ýªººô­¶¥N½X¯à¬Ý¥X¨Ó¶Ü¡H
¥¨¶°¤ºÁÙ¦³¤@¬q¤U¸ü­ÓªÑ¤é¦¨¥æ¸ê°T¡AÁÙ¦³§Ú¤]·Q±qÂd¶R¤¤¤ß¤U¸ü¤WÂd¸ê®Æ¡A
¤]­±Á{¬Û¦P°ÝÃD


¤W¥«­ÓªÑ¤é¦¨¥æ¸ê°T
http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html
¤WÂd¨C¤é¦¬½Lºô§}
¤WÂd­ÓªÑ¤é¦¨¥æºô§}

TOP

¦^´_  t8899 ¤£¬O¨C­Óºô­¶³£¥i¥H «ü©wªí®æ¤U¸ü¡A¦³ªº­¶­±¥u¯à¥þ­¶¤U¸ü
joey0415 µoªí©ó 2017-5-24 20:28


½Ð±Ð³o­Ó«ç»ò§ì©O?
http://www.twse.com.tw/zh/page/trading/fund/T86.html

TOP

TOP

TOP

¦^´_ 15# joey0415
¤Ó·PÁ¤F¡AJ¤j
ÁÙ¦³¤@­Óºô§}¡A¯àÀ°¦£¬Ý¬Ý¶Ü¡H
http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html

ps. ­Y­n¹³±z¤@¼Ë¯à¬Ý±o¥X§ì¨úºô§}¡A¬O­n¯à¬ÝÀ´java¶Ü¡H

TOP

TOP

ºô§}¦³¤F

¦Û¤v½m²ß¬Ý¬Ý
joey0415 µoªí©ó 2017-5-24 21:35


Sub Macro1()
Cells.Clear
ddd = "URL;http://www.twse.com.tw/fund/T86?response=html&date=" & Format(Date, "yyyyMMDD") & "&selectType=ALL"
With ActiveSheet.QueryTables.Add(Connection:=ddd, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub

TOP

¦^´_ 17# joey0415


    ±z¦n¡A§Ú¤]«Ü¦n©_¡A¦p¦ó¨ú±o¸Óºô§}¡H
    ¯à§_½Ð joey¥ý¶i«üÂI°g¬z
    ·PÁÂ

JS

TOP

¦^´_ 5# joey0415


  ÁÂÁ  J¤j ¤w¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD