[算表] 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