日文操作系统下，读取日文Excel中的中文后保存到文本文件

'+++++++++++++++++++++++++++++++++++++' Get output object' Return output object' eg.'     Dim wo as object'     Call GetWriteObject(wo)'+++++++++++++++++++++++++++++++++++++Function GetWriteObject(ByRef TextStream As Object)    Set TextStream = CreateObject("ADODB.Stream")    With TextStream        .Mode = 3        .Open        .CharSet = "UTF-8"        .Position = TextStream.Size    End WithEnd Function'+++++++++++++++++++++++++++++++++++++' Write content to object' eg.'     Dim wo as object'     Call GetWriteObject(wo)'     strA = "This is sample."'     writeContent(strA, wo)'+++++++++++++++++++++++++++++++++++++Function WriteContent(ByVal strContent As String, ByRef TextStream As Object)    TextStream.WriteText strContentEnd Function'+++++++++++++++++++++++++++++++++++++' Write content to file' eg.'     Dim wo as object'     Call GetWriteObject(wo)'     strA = "This is sample."'     writeContent(strA, wo)'     WriteFile(strPath, wo)'+++++++++++++++++++++++++++++++++++++Function WriteFile(ByVal strFilename As String, ByRef TextStream As Object, Optional ByVal adSaveCreateOverWrite As String = "2")    TextStream.SaveToFile strFilename, adSaveCreateOverWrite    TextStream.CloseEnd Function

?

读取成UTF-8，并以UTF-8编码写入文本文件