- ©«¤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
|
¦^´_ 3# f3202 - Sub ¥¨¶°1()
- '
- Cells.Clear
- sday = 20170524
- surl = "http://www.twse.com.tw/indicesReport/MI_5MINS_HIST?response=html&date=" & sday
- Range("A1").Select
- With ActiveSheet.QueryTables.Add(Connection:="URL;" & surl, Destination:=Range("$A$1"))
- .Refresh BackgroundQuery:=False
- End With
- End Sub
½Æ»s¥N½X ½Ð¿ï¡u¦C¦L / HTML¡v¨º¶¿ý»s
¦Û¤w¿ý»s¬Ý¬Ý¡A§R°£¤£nªº¡A³o§¹¦¨¤F |
|