- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 1
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2025-1-1
|
本帖最後由 quickfixer 於 2018-11-12 21:51 編輯
01那邊抄來的解法:lol
Sub TEST()
Url = "http://mops.twse.com.tw/nas/t21/sii/t21sc03_107_4_0.html"
Set HTML = CreateObject("Microsoft.XMLHTTP")
With HTML
.Open "GET", Url, False
.setRequestHeader "pragma", "no-cache"
.setRequestHeader "cache-control", "no-store, must-revalidate, private"
.setRequestHeader "charset", "utf-8"
.send
End With
MsgBox convertraw(HTML.responsebody)
End Sub
Function convertraw(rawdata)
Dim rawstr
Set rawstr = CreateObject("adodb.stream")
With rawstr
.Type = 1
.Mode = 3
.Open
.Write rawdata
.Position = 0
.Type = 2
.Charset = "big5"
convertraw = .ReadText
.Close
End With
Set rawstr = Nothing
End Function |
|
發表於 2018-11-12 21:49
| 