Hsieh

¦^´_ 1# vesperlee

1. Private Sub CommandButton1_Click()
   
2. Cells.Clear
   
3. GetData_URL = "http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_02_1020111.csv"
   
4. webURL = GetData_URL
   
5. webURL = "URL;" & GetData_URL
   
6. With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
   
7.          
   
8.         .RefreshStyle = xlOverwriteCells
   
9.                 .WebTables = "1"
   
10.        .Refresh BackgroundQuery:=False
    
11. End With
    
12. Columns("A:A").TextToColumns Destination:=[A1], comma:=True '¡A¸ê®Æ­åªR³r¸¹¤À¹j
    
13. End Sub

½Æ»s¥N½X