作者ljuber (美少婦與女兒同學的故事)
看板Office
標題[算表] vba資料夾內檔案轉碼??
時間Thu Jul 23 15:04:15 2020
軟體:excel
版本:2007以上
網路下載的檔案
格式都是Unicode UTF-8 no Bom(65001)
但是我們系統只有吃big5 且不能裝其他軟體來轉
所以用excel巨集想做轉換
嘗試寫了一下可是無法轉換還是亂碼
有看到網路上這個方法
http://discuz.bestdaylong.com/thread-37361-1-1.html
可是不知道怎麼運用
我的程式碼檔案跟要轉換的範例檔案放在GD裡面：
https://0rz.tw/dMjpQ
再麻煩大大幫我看要怎麼改
Thanks
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 39.10.36.96 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1595487858.A.931.html
1F：→ soyoso: 內文提到的網路方式，uft8tobig5=...改為.SaveToFile 路徑 07/23 16:05
2F：→ soyoso: 和檔名，所儲存的檔案以excel開啟則不會有亂碼 07/23 16:05
3F：→ ljuber: 感謝s大 其實是不知道怎麼跟迴圈處理一堆檔案搭配寫出來 07/23 16:37
4F：→ soyoso: sub 取代代號內的with...end with刪除，改UTF8ToBig5 路徑 07/23 16:57
5F：→ soyoso: & 完整檔名，路徑變數filepath，完整檔名openfile，那 07/23 16:57
6F：→ soyoso: function UTF8ToBig5的變數HtmlFile所接收傳來的就是路徑 07/23 16:57
7F：→ soyoso: & 完整檔名，這個字串就可以用於SaveToFile 後面，要覆蓋 07/23 16:57
8F：→ soyoso: 的話加上,2，沒有要覆蓋的話，變數HtmlFile再連接&字串來 07/23 16:57
9F：→ soyoso: 做為新檔 07/23 16:57
10F：→ ljuber: 謝謝S大 不過很奇怪轉檔後仍顯示utf8 但是可以正確轉入系 07/24 13:46
11F：→ ljuber: 統 中文字也都正常 07/24 13:46
12F：→ soyoso: 如果限定要big5的話，readtext取得的字串，charset再改為 07/24 15:36
13F：→ soyoso: big5，writetext寫入，savetofile後就會是big5 07/24 15:36