【VBA自学笔记(三)】StreamWrite与StreamRead——UTF-8的读写

Sub StreamWrite(path, st)Dim stmSet stm = CreateObject("Adodb.Stream")    stm.Type = 2    stm.Mode = 3    stm.Charset = "UTF-8"    stm.Open    stm.WriteText = st    stm.SaveToFile (path), 2  '1.不覆盖;2.覆盖Set stm = NothingEnd Sub

Function StreamRead(path)Dim stmSet stm = CreateObject("Adodb.Stream")    stm.Type = 2    stm.Mode = 3    stm.Charset = "UTF-8"    stm.Open    stm.LoadFromFile (path)    StreamRead = stm.ReadText()Set stm = NothingEnd Function

参考自：http://blog.csdn.net/icanlove/article/details/39394701