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

¦³ÃöVBA§ì¨úºô§}CSV°ÝÃD

¦³Ãö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§_¤W­zºô§}¦³»~·Ó¦¨ªº? ÁÂÁÂ

With ActiveSheet.QueryTables.Add(Connection:=myURL _
       , Destination:=Range("A1"))        
       .WebFormatting = xlWebFormattingNone
       .WebTables = "1"                    
       .AdjustColumnWidth = False           
       .Refresh 0
End With

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD