作者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