別讓即時視窗騙了你

今天在抓大陸的某個網站，當我把資料印在即時視窗時

在中文的部分會出現問號，之後使用轉碼程式試了好幾次都一樣，但若印到儲存格上

其實印出簡體字是完全OK的...
附上轉碼程式:

Function convertraw(rawdata)

Dim rawstr
Set rawstr = CreateObject("adodb.stream")
With rawstr
.Type = 1
.Mode = 3
.Open
.Write rawdata
.Position = 0
.Type = 2
.Charset = "UTF-8"  '通常這裡不是放UTF-8就是Big5
convertraw = .ReadText
.Close
End With
Set rawstr = Nothing

End Function