``` Public Function fileStr_utf8(ByVal sUTF8File As String) As String If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function Dim ados As Object Set ados = CreateObject("ADODB.Stream") With ados .Charset = "utf-8" .Type = 2 .Open .LoadFromFile sUTF8File fileStr_utf8 = .ReadText .Close End With Set ados = Nothing End Function '写文件 Public Function writeToFile_utf8(FileName As Variant, strFileBody As Variant) As Boolean On Error GoTo Err1 Dim ADO_Stream As Object Set ADO_Stream = CreateObject("ADODB.Stream") With ADO_Stream .Type = 2 .Mode = 3 .Charset = "utf-8" .Open .WriteText strFileBody .SaveToFile FileName, 2 End With writeToFile_utf8 = True Set ADO_Stream = Nothing Exit Function Err1: writeToFile_utf8 = False MsgBox "write to file error!" & vbCrLf & vbCrLf & FileName, vbExclamation End Function ```