ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD