joey0415

¦^´_ 1# pupai
ºô§}¤£¹ï

1. Sub ¥¨¶°1()
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "URL;http://www.gretai.org.tw/web/stock/3insti/daily_trade/3itrade_print.php?l=zh-tw&t=D&d=103/11/28&s=0,asc,0" _
   
4.         , Destination:=Range("$A$1"))
   
5.         .WebFormatting = xlWebFormattingNone
   
6.         .WebPreFormattedTextToColumns = True
   
7.         .Refresh BackgroundQuery:=False
   
8.         .Delete
   
9.     End With
   
10. End Sub

½Æ»s¥N½X