ªð¦^¦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 : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD