- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¦^´_ 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 |
|