vba判断文件编码格式_VBA-向文本文件写入编码为UTF-8的数据(无BOM)



'直接用下面代码调用即可

'Str 为文本，Filepath 为文本文件的路径

例：

call ToUtf8("AA","d:\abc.txt")

代码

Private Sub ToUtf8(Str$, Filepath$)

Dim OutSt As Object, BinSt As Object

Set OutSt = CreateObject("ADODB.Stream")

Set BinSt = CreateObject("ADODB.Stream")

With OutSt

.Open

.Charset = "UTF-8"

.Type = adTypeText

.WriteText (Str)

.Position = 3

End With

With BinSt

.Open

.Type = adTypeBinary

End With

OutSt.CopyTo BinSt

With BinSt

.SaveToFile Filepath, 2

.Close

End With

OutSt.Close

End Sub

说明：

Sub Test()

'需要引入  ActiveX Data Objects(ADO)组件，无论是前期引用还是后期引用均需

'即 Microsoft ActiveX Data Objects 2.5 L