用VBA读取UTF编码的文本文件

amulee

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

1. Function ReadUTF(ByVal FileName As String) As String
   
2.     With CreateObject("ADODB.Stream")
   
3.         .Type = 2    '读取文本文件
   
4.         .Mode = 3   '读写
   
5.         .Open    '打开流
   
6.         .LoadFromFile FileName   '装载文本文件
   
7.         .Charset = "UTF-8"  '设定编码
   
8.         .Position = 2
   
9.         ReadUTF = .ReadText   '读取文本
   
10.         .Close       '关闭
    
11.     End With
    
12. End Function

复制代码

读取UTF编码文件.rar (10.54 KB, 下载次数: 109)

2011-1-19 08:41 上传

点击文件名下载附件

raulerini

谢谢阿木！学习了！{:35:}

snrvgbb

学习{:1112:}

罗非鱼

  阿木老师：您的这段代码我运行不了啊、、、、请您解释一下

引子玄

学习VBA最好的方法不是提问，而是实践！

vbaxinshou

多看贴子果然会有很多收获