参考文档:http://www.cnblogs.com/waver/articles/1283842.html
但是,这位仁兄写的函数,我发现并不能用。
于是,做了一点小修改。我想,应该是有方法做的更好的。
如果下次我这里再有这样的需求,我便来研究一下。
在改之前,提示我LoadFile有问题。
函数更改:
Function WriteToFile(file, Message)
Dim Stm1
Set Stm1 = CreateObject("ADODB.Stream")
Stm1.Type = 2
Stm1.Open
Stm1.Charset = "UTF-8"
'Stm1.Charset = "Unicode"
Stm1.Position = Stm1.Size
Stm1.WriteText Message
Stm1.SaveToFile file,2
Stm1.Close
set Stm1 = nothing
End Function
这个Message是文档里所有的信息,这里我用Readall读取
Set WriteFile = fso.OpenTextFile(“test.txt", 1, True)
Message = WriteFile.ReadAll
WriteFile.Close