返回列表下一主題上一主題發帖

[發問] 網頁抓取資料如何讓中文完整顯示(用CreateObject系列)

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-11-12 11:17 | 顯示全部帖子

[發問] 網頁抓取資料如何讓中文完整顯示(用CreateObject系列)

使用以下程式碼當網頁有中文的時候
例如[漲、跌]等字樣會變成亂碼
如何用CreateObject系列的方式來讓中文正確顯示呢?
嘗試用.setRequestHeader "charset", "utf-8"等方法約莫七八種都無效
有大大有經驗嗎?

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 HTML.responseText
End Sub

複製代碼

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-11-12 22:51 | 顯示全部帖子

回復 2# ciboybj

msgbox 只是展示給大大們看
我實際是直接讀取內容
但讀取內容也是亂碼

想問有辦法轉為正確的中文嗎?

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-11-12 22:51 | 顯示全部帖子

回復 3# quickfixer

感謝,我明天測試一下!!!

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2018-11-13 22:32 | 顯示全部帖子

回復 3# quickfixer

好強大的方式阿....完全正確速度又快
大大好會搜尋
我查國外網站都找不到
只有一個方式可以用,但速度太慢
您的這個方式好厲害!!!

大大說的01指的是mobile1嗎?
下次我也去那邊找找看答案

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2019-1-4 10:28 | 顯示全部帖子

回復 7# GBKEE

非常感謝超版大大
原本以為三樓已經可以解決我的問題
沒想到會產生出其他問題

使用您的程式碼則完全沒有其他問題
真是太強大了,再次感謝!!!

PKKO

TOP

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題