VBA 向文件写入编码为UTF-8的数据

Sub Test()
        
 '需要引入  ActiveX Data Objects(ADO)组件
 '       即 Microsoft ActiveX Data Objects 2.5 Library 或者 Microsoft ActiveX Data Objects 2.6 Library
       
    Dim fileSaveName As String
        
    '创建文件并返回文件路径和名字
    fileSaveName = Application.GetSaveAsFilename(fileName, fileFilter:="信息文件(*.txt), *.txt")
   '创建写入数据的流
        Set outStream = CreateObject("ADODB.Stream")
            outStream.Open
            outStream.Charset = "utf-8"
            outStream.Type = adTypeText
        Set binStream = CreateObject("ADODB.Stream")
            binStream.Open
            binStream.Type = adTypeBinary
' 开始写入数据            
        outStream.WriteText ("************************************" & vbCrLf)                       
        outStream.WriteText ( Sheet1.Cells(5, 3) & vbCrLf)   ' & vbCrLf 为换行符
        outStream.WriteText ( Sheet1.Cells(5, 2) &a
版权声明：本文为boveysmith原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。