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

關於網頁下載資料亂碼問題

ten999

中學生 Rank: 2

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-8-17 11:33 | 只看該作者

關於網頁下載資料亂碼問題

請問各位先進:
於vba中下載資料時會出現亂碼,如果於網頁開啟執行過程(ie ,.Visible = True)中手動編碼為UTF8時便可正常.
請問:這手動程如何以VBA程式碼編寫!
謝謝!

test.rar (23.63 KB)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

2^#

發表於 2012-8-19 04:48 | 只看該作者

回復 1# ten999

以下摘錄自Excel說明 :
Encoding 屬性
請參閱套用至範例特定傳回或設定文件的編碼方式 (字碼頁或字元集)，當檢視儲存的文件時，網頁瀏覽器將使用此文件編碼方式。預設值為系統的字碼頁。讀/寫 MsoEncoding 資料類型。

MsoEncoding 可以是這些 MsoEncoding 常數之一。
...
msoEncodingUTF8
...

試試看是否可以解決你的問題.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-8-19 11:21 | 只看該作者

回復 1# ten999
檢視網頁的,原始檔案存為 HTM檔 ,再度打開此HTM檔就可消除亂碼

Option Explicit
Sub Ex()
Dim Fs As Object, Url As String, OkFile As String, MyQuery As QueryTable
Url = " http://www.p-shares.com/0051-4-1-1.asp" '網址
OkFile = "D:\OK.HTM" '下載後存檔名稱
With CreateObject("Microsoft.XMLHTTP")
.Open "get", Url, False
.send
Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(OkFile, True)
'建立一文字檔(True:檔案如存在可覆蓋舊檔案)
Fs.WriteLine .responseText '寫入文字檔
Fs.Close
With ThisWorkbook.Sheets(1) '工作表中匯入HTM檔
Set MyQuery = .QueryTables.Add("FINDER;file:///" & OkFile, .[a1])
MyQuery.WebFormatting = xlWebFormattingNone
MyQuery.Refresh 0
End With
End With
End Sub

複製代碼

TOP

靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。

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