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