HSIEN6001

¦^´_ 5# pupai

¸Õ¸Õ

1. Sub CSV¤U¸ü()
   
2. Dim path As String
   
3. path = "C:\"
   
4. ¤é´Á = "20141215"
   
5. 
   
6. Set XML = CreateObject("Microsoft.XMLHTTP")
   
7. Set stream = CreateObject("ADODB.stream")
   
8.    
   
9.     URL = "http://www.taifex.com.tw/chinese/3/7_12_8dl.asp?syear=" & VBA.Left(¤é´Á, 4) & "&smonth=" & VBA.Mid(¤é´Á, 5, 2) & "&sday=" & _
   
10.             VBA.Right(¤é´Á, 2) & "&eyear=" & VBA.Left(¤é´Á, 4) & "&emonth=" & VBA.Mid(¤é´Á, 5, 2) & "&eday=" & VBA.Right(¤é´Á, 2)
    
11.         XML.Open "GET", URL, 0
    
12.         XML.send
    
13.     With stream
    
14.         .Type = 1
    
15.         .Open
    
16.         .write XML.responseBody
    
17.         If Dir(path & "ÃþªÑ´Á³f" & ¤é´Á & ".csv") <> "" Then Kill (path & "ÃþªÑ´Á³f" & ¤é´Á & ".csv")
    
18.         .SaveToFile (path & "ÃþªÑ´Á³f" & ¤é´Á & ".csv")
    
19.         .Close
    
20.     End With
    
21. 
    
22. End Sub

½Æ»s¥N½X