- ©«¤l
- 11
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-9-17
- ³Ì«áµn¿ý
- 2017-4-24
|
¦³ÃöVBA§ì¨úºô§}CSV°ÝÃD
½Ð±Ð¦U¦ì°ª¤â¡A¦]ÃÒ¥æ©Òªººô§}¦³§ó§ï
myURL = http://www.tse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php?download=&qdate=105%2F04%2F06
¨Ï¥ÎVBA¥¨¶°®É¡A¥u·|§ì¨ì¥Ø«e³Ì·sªº¸ê®Æ¡AµLªk«ü©w¤é´Á¡A·Q½Ð°Ý¦U¦ì°ª¤â¡A¬O§_¤Wzºô§}¦³»~·Ó¦¨ªº? ÁÂÁÂ
With ActiveSheet.QueryTables.Add(Connection:=myURL _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.AdjustColumnWidth = False
.Refresh 0
End With |
|