EXCEL VBA 读写 ANSI

最新推荐文章于 2024-01-10 01:01:58 发布

虾的哥哥

最新推荐文章于 2024-01-10 01:01:58 发布

阅读量775

点赞数

分类专栏： VBA 文章标签： excel java 开发语言

本文链接：https://blog.youkuaiyun.com/yuzhongdexia/article/details/127475125

版权

博主分享了在VBA中处理ANSI编码（GB2312）的经验，强调了学习相关课程的重要性，提醒先完整观看课程再进行实践。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ANSI 就选gb2312 为啥不晓得，整了一下午。自己瞎琢磨，不如看看买的课程，体会到了。

课程要看完再动手。

以下代码来自郑广学老师

'Option Explicit
Function ReadTextByChatSet(FileName, Optional CharSet = "UTF-8")
    '读文件 根据文本编码格式
    Dim oStream     As Object
    Dim sText       As String
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.CharSet = CharSet 'unicode|utf-8;Ascii; gb2312; big5; gbk
    oStream.Type = 2 'adTypeText
    oStream.LoadFromFile FileName
    ReadTextByChatSet = oStream.ReadText()
    oStream.Close
    Set oStream = Nothing
End Function
'函数名称：WriteToTextFile
'作用：利用Adodb.Stream对象来写入UTF-8编码的文件
'示例：Call WriteToTextFile("File/FileName.htm",Content,"UTF-8")
Sub WriteToTextFile(FilePath, ByVal str, Optional CharSet = "Ascii", Optional bak = False)
    Dim stm
    Set stm = CreateObject("adodb.stream")