PTT數位生活區 / Office

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

看板Office作者 (美少婦與女兒同學的故事)時間5年前 (2020/07/23 15:04), 編輯推噓0(0推 0噓 13→)
留言13則, 2人參與, 5年前最新討論串1/1
軟體: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://www.ptt.cc/bbs/Office/M.1595487858.A.931.html
→
07/23 16:05, 5年前 , 1F
內文提到的網路方式，uft8tobig5=...改為.SaveToFile 路徑
07/23 16:05, 1F
→
07/23 16:05, 5年前 , 2F
和檔名，所儲存的檔案以excel開啟則不會有亂碼
07/23 16:05, 2F
→
07/23 16:37, 5年前 , 3F
感謝s大 其實是不知道怎麼跟迴圈處理一堆檔案搭配寫出來
07/23 16:37, 3F
→
07/23 16:57, 5年前 , 4F
sub 取代代號內的with...end with刪除，改UTF8ToBig5 路徑
07/23 16:57, 4F
→
07/23 16:57, 5年前 , 5F
& 完整檔名，路徑變數filepath，完整檔名openfile，那
07/23 16:57, 5F
→
07/23 16:57, 5年前 , 6F
function UTF8ToBig5的變數HtmlFile所接收傳來的就是路徑
07/23 16:57, 6F
→
07/23 16:57, 5年前 , 7F
& 完整檔名，這個字串就可以用於SaveToFile 後面，要覆蓋
07/23 16:57, 7F
→
07/23 16:57, 5年前 , 8F
的話加上,2，沒有要覆蓋的話，變數HtmlFile再連接&字串來
07/23 16:57, 8F
→
07/23 16:57, 5年前 , 9F
做為新檔
07/23 16:57, 9F
→
07/24 13:46, 5年前 , 10F
謝謝S大 不過很奇怪轉檔後仍顯示utf8 但是可以正確轉入系
07/24 13:46, 10F
→
07/24 13:46, 5年前 , 11F
統 中文字也都正常
07/24 13:46, 11F
→
07/24 15:36, 5年前 , 12F
如果限定要big5的話，readtext取得的字串，charset再改為
07/24 15:36, 12F
→
07/24 15:36, 5年前 , 13F
big5，writetext寫入，savetofile後就會是big5
07/24 15:36, 13F
‣ 更多 ljuber 的文章
文章代碼(AID): #1V6JPoan (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ljuber 的文章
文章代碼(AID): #1V6JPoan (Office)