VBA 生成UTF8格式文件

WU CHUNYU

已于 2024-06-11 16:36:40 修改

阅读量1.2k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： VBA

于 2024-04-14 21:12:40 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/137754752

1. 生成带BOM头的UTF8格式文件

'----------------------------------------------------------------------
' 生成带BOM头的UTF-8文件
'----------------------------------------------------------------------
Function OutputUTF8FileWithBOM(ByVal prmStrFullPath As String, ByVal prmStrFile As String)
    Dim stream As Object
    
    Set stream = CreateObject("ADODB.Stream")

    stream.Type = 2  'adTypeText
    stream.Charset = "utf-8"
    stream.Open
    stream.WriteText prmStrFile, 0 'adWriteChar
    stream.SaveToFile prmStrFullPath, 2  'adSaveCreateOverWrite
    stream.Flush
    stream.Close
    
End Function

2.生成不带BOM头的UTF8格式文件

'----------------------------------------------------------------------
' 生成不带BOM头的UTF-8文件
'----------------------------------------------------------------------
Function OutputUTF8FileNoBOM(ByVal prmStrFullPath As String, ByVal prmStrFile As String)
    Dim stream As New ADODB.stre