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

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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。