EXCEL VBA 读写 ANSI

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

虾的哥哥

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

阅读量646

点赞数

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

本文链接：https://blog.csdn.net/yuzhongdexia/article/details/127475125

版权

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")