VBA读取txt内容

我是小黑屋

1. Function ReadTextFile(FileName, Optional CharSet = "gb2312")
   
2.     '读文件
   
3.     Dim oStream     As Object
   
4.     Dim sText       As String
   
5.     Set oStream = CreateObject("ADODB.Stream")
   
6.     oStream.Open
   
7.     oStream.CharSet = CharSet 'unicode|utf-8;Ascii; gb2312; big5; gbk
   
8.     oStream.Type = 2 'adTypeText
   
9.     oStream.LoadFromFile FileName
   
10.     ReadTextFile = oStream.ReadText()
    
11.     oStream.Close
    
12.     Set oStream = Nothing
    
13. End Function

复制代码

1. hf = ReadTextFile("D:\路径.txt", "utf-8")
   
2. msgbox hf
   

复制代码