ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¥æ©ö©Òºô¯¸ªº¦¬½L»ù¤wÅܧó?¥Î°ÊºA¬d¸ß¤w¥¢®Ä?

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD