joey0415

¦^´_ 1# yehmengfeng
ÅܼƦۤv§ï§ï¬Ý¡I

1. Sub ¥¨¶°1()
   
2. '
   
3.     Cells.Delete
   
4. 
   
5.     surl = "URL;" & "http://e-service.cwb.gov.tw/HistoryDataQuery/MonthDataController.do?command=viewMain&station=467410&datepicker=2015-01"
   
6.    
   
7.     Set QT = ActiveSheet.QueryTables.Add(Connection:=surl, Destination:=Range("$A$1"))
   
8.    
   
9.     With QT
   
10.         .WebFormatting = xlWebFormattingNone
    
11.         .Refresh BackgroundQuery:=False
    
12.         .Delete
    
13.     End With
    
14.    
    
15.     Set QT = Nothing
    
16. End Sub

½Æ»s¥N½X