用vba创建utf8格式的txt文件

之前用createTextFile方法发现写出来的结果是utf16。
因为目标系统不支持utf16，只好求组网络。
学到了拿adodb写文件的偏门，或者说其实这才是主流？

Public Sub doExec()
    Dim lngLstRow2 As Long
    Dim i As Long
    Dim fso As New FileSystemObject
    Dim f As Object
    Dim j As Integer
    Dim fName As String
    Dim Stream As New ADODB.Stream
    Stream.Type = adTypeText
    Stream.Charset = "utf-8"
    Stream.Open
    
    '...
    '...
    
    fName = "C:\Project\test\app_archi.md"
    
    
    
   
   Stream.WriteText  " " & "something" & vbLf
        
        

    Stream.SaveToFile fName, adSaveCreateOverWrite
    Stream.Close
End Sub
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容