使用VBA读取UTF文件

最新推荐文章于 2025-05-18 15:45:58 发布

taller_2000

最新推荐文章于 2025-05-18 15:45:58 发布

阅读量6k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： VBA Office 数据文章标签： UTF ADODB 字符集 ANSI 乱码

本文链接：https://blog.csdn.net/taller_2000/article/details/116194709

VBA 同时被 3 个专栏收录

321 篇文章

订阅专栏

数据

65 篇文章

订阅专栏

Office

25 篇文章

订阅专栏

该篇博客介绍了如何在VBA中使用ADODB.Stream对象来读取UTF-8编码的文本文件，以解决使用Open方法打开UTF-8文件导致的乱码问题。通过创建Stream对象，指定字符集为UTF-8，然后加载并读取文件内容，最终实现正确读取和处理数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

文本文件可以有不同编码格式（ANSI，UTF8，UTF16 等等），文本编辑器可以自动识别相应的编码格式，例如下面两个文件内容完全相同，但是文件格式却不同。
在这里插入图片描述
如果文件是ANSI格式，那么可以使用Open方法打开文本文件，然后读取，但是对于UTF-8的文件，Open方法打开后读取到的内容是乱码。使用ADODB可以完美读取UTF-8文件。
示例代码如下。

Sub ReadUTFTxt()
    Dim objStream, strData
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "utf-8"
    objStream.Open
    objStream.LoadFromFile ("c:\temp\test.txt")
    strData = objStream.ReadText()
    arr = Split(strData, vbCrLf)
    ' 处理数据
    objStream.Close
    Set objStream = Nothing
End Sub

【代码解析】
第3行代码创建ADODB.Stream对象。
第4行代码指定字符集为UTF-8。
第5行代码使用Open方法打开流对象。
第6行代码加载文本文件。
第7行代码使用ReadText返回文件内容。
第8行代码将文本内容按照行进行拆分，并保存在数组arr中。
第9行代码关闭流对象。
第10行代码释放对象变量占用的系统资源。