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

[µo°Ý] ¨D±Ï¡I§ìÃÒ¥æ©Ò­ÓªÑ¤é¦¨¥æ¸ê°T

[µo°Ý] ¨D±Ï¡I§ìÃÒ¥æ©Ò­ÓªÑ¤é¦¨¥æ¸ê°T

¦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

http://www.tse.com.tw/exchangeReport/STOCK_DAY?response=html&date=20171008&stockNo=2317
¸Õ¸Õ

TOP

·PÁ¤j¤j¤À¨É  °ÝÃD¤w¸Ñ¨M  
¤£ª¾¹D¤j¤j¬O«ç»òª¾¹D­n¥ÎGET¤èªk
ºô§}¬O­þ¸Ì§äªº©O

TOP

¦^´_ 3# tsunamix03

"¦C¦L / HTML"  «ö¤U¥h´N¬O

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD