[算表] vba資料夾內檔案轉碼?? ljuber PTT批踢踢實業坊

[算表] vba資料夾內檔案轉碼??

作者: ljuber (美少婦與女兒同學的故事) 2020-07-23 15:04:15

軟體: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

作者: soyoso (我是耀宗) 2020-07-23 16:05:00

內文提到的網路方式，uft8tobig5=...改為.SaveToFile 路徑和檔名，所儲存的檔案以excel開啟則不會有亂碼

作者: ljuber (美少婦與女兒同學的故事) 2020-07-23 16:37:00

感謝s大其實是不知道怎麼跟迴圈處理一堆檔案搭配寫出來

作者: soyoso (我是耀宗) 2020-07-23 16:57:00

sub 取代代號內的with...end with刪除，改UTF8ToBig5 路徑& 完整檔名，路徑變數filepath，完整檔名openfile，那function UTF8ToBig5的變數HtmlFile所接收傳來的就是路徑& 完整檔名，這個字串就可以用於SaveToFile 後面，要覆蓋的話加上,2，沒有要覆蓋的話，變數HtmlFile再連接&字串來做為新檔

作者: ljuber (美少婦與女兒同學的故事) 2020-07-24 13:46:00

謝謝S大不過很奇怪轉檔後仍顯示utf8 但是可以正確轉入系統中文字也都正常

作者: soyoso (我是耀宗) 2020-07-24 15:36:00

如果限定要big5的話，readtext取得的字串，charset再改為big5，writetext寫入，savetofile後就會是big5

繼續閱讀

[算表] Sumproduct多取出空白資料veryeasy [問題] vba判斷數字大小迴圈中斷cara5659 [算表] 格式化條件edmund71405 [算表] google有類似Excel的建立表格功能嗎?a555444 [算表]查詢列並輸入至對應欄VBA或函數？a1760139 [算表]如何設定下拉式選單跟著第一筆取消而不見mysterymask [文件] word追蹤校訂的表格儲存格？rilo [算表]請問有軟體可以用Excel和心智圖互相轉檔嗎ddqueen [算表] 某幾列的值丟到某幾欄surick [算表] 不同來源資料劃同一圖表結構robinnpca