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

最新推荐文章于 2024-06-11 16:31:28 发布

小码哥学习中

最新推荐文章于 2024-06-11 16:31:28 发布

阅读量1.4w

点赞数 4

分类专栏： VB/VBA

本文链接：https://blog.csdn.net/boveysmith/article/details/73350663

版权

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