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

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

 

附件下载：如何用VBA读取UTF编码的文本文件？ http://www.exceltip.net/thread-12732-1-1-11314.html