[已解决]VBA提取TXT文本内容，编码ANSI和编码UTF-8的区别

林木水

在excel提取txt文本的时候，TXT编码ANSI的可以抓取正确的数据，但是编码UTF-8的数据抓取出来会出现乱码。问题1：请前辈们介绍讲解TXT编码在excel中的VBA的区别和用法。

问题2：另外怎么用vba批量去修改txt格式编码？

最佳答案

月排行榜 / 总排行榜

vitrel

2022-3-2 17:21

楼主，您好！
关于文本编码格式所涉及的学问较多，一方面我也只了解了皮毛，二来篇幅所限，我在这里简单、挑重点来跟您说一下。
简体中文版Windows系统中，NotePad.txt所支持的（我们经常能接解的）文本编码有三类，分别是ANSI/GB2312、Unicode、UTF-8。
这3种常见编码之间，既存在一定的关联，又有比较大的区别。
以VBA直接读取TXT文件，仅能正确识别及显示ANSI格式的TXT文件的内容。
若强行用VBA直接读取及识别Unicode、UTF-8格式的TXT文件，纯英文还好，中文的话就会出现乱码。
解决的办法很简单，就是读取的同时对文本编码进行转换，转换为VBA能正确识别的编码。
文本编码的转换由来已久，网上有太多太多的方法，我所了解的众多转换方案中，使用ADODB.Stream对象来对字符串编码进行转换是最优方案。
（注：ADODB.Stream对象并非VBA特有，很多其它语言都可以调用它来进行文本编码转换。）
调用ADODB.Stream对象对字符串编码进行转换，其优点在于：一方面代码简短，第二方面就是支持（几乎）所有文本编码之间的互转，功能十分强大。
我以前就做过这类编码转换的对比，我这套现成的实例跟您的情况非常相似，您可以参考一下。
以上基本就回答了您第一个问题了。

至于第二个问题，“直接修改TXT的编码格式”应该不太现实，

我建议的解决方法步骤如下：
1、VBA调用ADODB.Stream对象去读取不同编码的TXT文件，并将其转换为VBA能正确识别的编码（下称“能识别的字符串”）。
2、VBA再次调用ADODB.Stream对象将上面得到的“能识别的字符串”转换成您想要的文本格式（由您指定），然后写入TXT文件，大功告成。
3、如果是批量的话，加个循环就是了。

以上内容希望对您有所帮助。
另外，我上面多次提到“VBA能正确识别的编码”，这种编码其实是一种不含BOM头的Unicode编码。
虽是Unicode编码，但与TXT文件中的Unicode编码有一定的区别（名字一样，却不相同，这不是害人吗？！！但事实就是如此）。
以至于VBA直接读取Unicode编码的TXT文件时也因无法识别而出现乱码。
我也是怕您觉得混乱，所以上面一直没提。
如果您看了以后无法理解，要么您就再百度一下这方面的知识，要么就直接略过此段。

跳转到最佳答案楼层

vitrel

楼主，您好！
关于文本编码格式所涉及的学问较多，一方面我也只了解了皮毛，二来篇幅所限，我在这里简单、挑重点来跟您说一下。
简体中文版Windows系统中，NotePad.txt所支持的（我们经常能接解的）文本编码有三类，分别是ANSI/GB2312、Unicode、UTF-8。
这3种常见编码之间，既存在一定的关联，又有比较大的区别。
以VBA直接读取TXT文件，仅能正确识别及显示ANSI格式的TXT文件的内容。
若强行用VBA直接读取及识别Unicode、UTF-8格式的TXT文件，纯英文还好，中文的话就会出现乱码。
解决的办法很简单，就是读取的同时对文本编码进行转换，转换为VBA能正确识别的编码。
文本编码的转换由来已久，网上有太多太多的方法，我所了解的众多转换方案中，使用ADODB.Stream对象来对字符串编码进行转换是最优方案。
（注：ADODB.Stream对象并非VBA特有，很多其它语言都可以调用它来进行文本编码转换。）
调用ADODB.Stream对象对字符串编码进行转换，其优点在于：一方面代码简短，第二方面就是支持（几乎）所有文本编码之间的互转，功能十分强大。
我以前就做过这类编码转换的对比，我这套现成的实例跟您的情况非常相似，您可以参考一下。
以上基本就回答了您第一个问题了。

至于第二个问题，“直接修改TXT的编码格式”应该不太现实，

我建议的解决方法步骤如下：
1、VBA调用ADODB.Stream对象去读取不同编码的TXT文件，并将其转换为VBA能正确识别的编码（下称“能识别的字符串”）。
2、VBA再次调用ADODB.Stream对象将上面得到的“能识别的字符串”转换成您想要的文本格式（由您指定），然后写入TXT文件，大功告成。
3、如果是批量的话，加个循环就是了。

以上内容希望对您有所帮助。
另外，我上面多次提到“VBA能正确识别的编码”，这种编码其实是一种不含BOM头的Unicode编码。
虽是Unicode编码，但与TXT文件中的Unicode编码有一定的区别（名字一样，却不相同，这不是害人吗？！！但事实就是如此）。
以至于VBA直接读取Unicode编码的TXT文件时也因无法识别而出现乱码。
我也是怕您觉得混乱，所以上面一直没提。
如果您看了以后无法理解，要么您就再百度一下这方面的知识，要么就直接略过此段。

砂海

搜到这个 , 未测试
VBA转换txt文件编码
https://www.cnblogs.com/mrlajie/p/15569592.html

林木水

vitrel 发表于 2022-3-2 17:21
楼主，您好！
关于文本编码格式所涉及的学问较多，一方面我也只了解了皮毛，二来篇幅所限，我在这里简单、 ...

谢谢老师讲解，受益颇多。

林木水

砂海 发表于 2022-3-2 18:21
搜到这个 , 未测试
VBA转换txt文件编码
https://www.cnblogs.com/mrlajie/p/15569592.html

谢谢老师，我试试