读取UTF8格式的文本文件,并返回整个文件。
'----------------------------------------------------------------------
' 读取UTF8格式CSV文件
'----------------------------------------------------------------------
Function GetCsvUtf8(ByVal prmStrPath As String)
Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Charset = "UTF-8"
.Open
.LoadFromFile (prmStrPath)
GetCsvUtf8 = .Readtext
.Close
End With
End Function