HSIEN6001

¦^´_ 1# t8899

´«¤F,¥Î³o­Ó!

Sub XL()
Set XML = CreateObject("Microsoft.XMLHTTP")
Set stream = CreateObject("ADODB.stream")
Dim path As String, thePOSTdata, URL
path = "C:\"
¤é´Á = "1031226"

    URL = "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php"
    thePOSTdata = "download=csv&qdate=" & ¤é´Á & "&selectType=ALLBUT0999"
        XML.Open "POST", URL, 0
        XML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        XML.send thePOSTdata
    With stream
        .Open
        .Type = 1
        .write XML.responseBody
        If Dir(path & "¦¬½L" & ¤é´Á & ".csv") <> "" Then Kill (path & "¦¬½L" & ¤é´Á & ".csv")
        .SaveToFile (path & "¦¬½L" & ¤é´Á & ".csv")
        .Close
    End With

End Sub