EXCEL存储为UTF8编码

最新推荐文章于 2024-07-12 18:16:09 发布

poxiao8

最新推荐文章于 2024-07-12 18:16:09 发布

阅读量6k

点赞数

分类专栏： VBA 文章标签： VBA utf-8

VBA 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

Sub ConvFile(InputFile As String, OutputFile As String) '导出UTF-8格式文件
    Dim WriteStream As Object
    Set WriteStream = CreateObject("ADODB.Stream")
    With WriteStream
        .Type = 2               'adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText InputFile
        .SaveToFile OutputFile, 2  'adSaveCreateOverWrite
        .Flush
        .Close
    End With
    Set WriteStream = Nothing
End Sub