彰化一整天的論壇

 找回密碼
 立即註冊
查看: 1625|回復: 0

VBA 轉碼 UTF-8轉Big5

[複製鏈接]
發表於 2016-10-12 10:27:01 | 顯示全部樓層 |閱讀模式
有些網頁的格式是以UTF-8編碼, 透過VBA以URLDownloadToFile下載該網頁後,若要進一步處理,會遇到中文變成亂碼的問題,用ADODB.Stream處理後可以轉成Big5碼.

  1. Function UTF8ToBig5(HtmlFile)
  2. Dim objStream As Object
  3. Set objStream = CreateObject("ADODB.Stream")
  4. With objStream
  5. .Type = 2
  6. .Mode = 3
  7. .Open
  8. .Charset = "UTF-8" ' 或其他編碼
  9. .LoadFromFile HtmlFile
  10. UTF8ToBig5 = .ReadText
  11. '也可透過 .SaveToFile 方法把檔案存檔
  12. .Close
  13. End With
  14. End Function
複製代碼
文章來源: http://vba.blogspot.tw/2007/10/vba-utf-8big5.html

回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-20 14:48 , Processed in 0.130795 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表