如何用VBA读取UTF编码的文本文件？

作者：绿色风分类：时间：2022-08-17 浏览：97

楼主
amulee

Q：如何用VBA读取UTF编码的文本文件？
A：通常读取文本文件，我们会用FSO对象或者用VBA内部的Open语句来读取。但是当文本文件是以UTF编码格式保存的时候，用前面的办法就会读出乱码。而FSO最多只能读出Unicode编码的文件。
为了能够正常读取UTF编码格式的文件，我们就需要用到ADODB.Stream对象。
以下即为读取UTF编码文件的自定义函数：

Function ReadUTF(ByVal FileName As String) As String
With CreateObject("ADODB.Stream")
.Type = 2 '读取文本文件
.Mode = 3 '读写
.Open
.LoadFromFile FileName
.Charset = "UTF-8" '设定编码
.Position = 2
ReadUTF = .ReadText
.Close
End With
End Function

用附件中的代码来测试一下吧。

读取UTF编码文件.rar

2楼
0Mouse

之前还真没花时间去了解“Unicode文本文件”和“制表符分隔文本”的区别，长见识了。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表