¦U¦ì¤j¤j¤é¦w
¦Û±qÃÒ¨é¥æ©ö©Ò§ïª©«á
¥H«e¥i¥H¨Ï¥Îµ{¦¡½X§ì¨úªº¡uӪѤ馨¥æ¸ê°T¡v ¡]·sºô§}¡Ghttp://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html¡^
¥Ø«e§Úªºµ{¦¡½X¤wµLªk§ì¨ú
·Q¤F³\¤[¤´µLªk¸Ñ¨M
·PÁ°ª¤â¤j¤j¤F
µ{¦¡½X¦p¤U
'¨ú±oªñ´ÁªÑ»ù ±q¸Ó¤ë²Ä¤@¤é¶}©l¥[¤J¸ê®Æ
Dim path As String, thePOSTdata, URL
Dim col As Integer, stockID As Integer, b_array, last_row As Integer
stockID = 2317 '§ìÂE®üªÑ»ù
URL = "http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html"
Set XML = CreateObject("Microsoft.XMLHTTP")
Set Stream = CreateObject("ADODB.stream")
thePOSTdata = "response=json&date=20060301&stockNo=" & stockID
XML.Open "POST", URL, 0
XML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XML.send thePOSTdata
'MsgBox "k"
With Stream
.Type = 1
.Mode = 3
.Open
.Write XML.responseBody
.Position = 0
.Type = 2
.Charset = "Big5"
ByteToText = .ReadText
MsgBox ByteToText '¨Ï¥Î¹ï¸Ü®ØSHOW¥X§ì¨ìªºªF¦è³£¬OµL®Äªº
End With |