日文操作系统下，读取日文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编码写入文本文件