ªð¦^¦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¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD