作者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/cn.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