VBA如何按指定的类型对文本文件内容读取？

chenlifeng123

已知word上有一个字符串是：𠆣 （发现在此处编辑时显示正常，保存后变为一串乱码，该字是上下结构，上面是一个“一”，下面是一个“人”字，特别为此字上传了 附件）
我全选该字，然后用下面代码把它保存：

1. Sub WriteToTextFile(FileUrl, ByVal Str, CharSet)
   
2.     Set stm = CreateObject("adodb.stream")
   
3.      stm.Type = 2
   
4.      stm.Mode = 3
   
5.      stm.CharSet = CharSet
   
6.      stm.Open
   
7.      stm.WriteText Str
   
8.      stm.SaveToFile FileUrl, 2
   
9.      stm.Flush
   
10.      stm.Close
    
11.     Set stm = Nothing
    
12. End Sub

复制代码

1. sub save1()
   
2.      Call WriteToTextFile("d:\1.txt", Selection.Text, "unicode")
   
3. end sub

复制代码

然后再读取它：

1. Function ReadFromTextFile(FileUrl, CharSet)
   
2.     Dim Str
   
3.     Set stm = CreateObject("adodb.stream")
   
4.      stm.Type = 2 '以本模式读取
   
5.      stm.Mode = 3
   
6.      stm.CharSet = CharSet
   
7.      stm.Open
   
8.      stm.LoadFromFile FileUrl
   
9.      Str = stm.ReadText
   
10.      stm.Close
    
11.     Set stm = Nothing
    
12.     ReadFromTextFile = Str
    
13. End Function

复制代码

1. sub Read1()
   
2.    
   
3. msgbox ReadFromTextFile("d:\1.txt", "unicode")
   
4. end sub

复制代码

结果发现：
     msgbox 的答案是两个 问号“??”

请问老师：
1、 为什么不是想要的原字“𠆣”？
      这个我想过，可能是原字“𠆣”属于SimSun-ExtB 字体，在msgbox 时代码中无法显示出这个字来；
2、我在 百度汉语“https://hanyu.baidu.com/” 中的输入框，输入该字：𠆣，回车后下面页面出现：百度搜索𠆣
     我点击这个带链接的浅蓝色 “𠆣”，在新页面的百度汉语输入框中看到两个字：馉啠

     请问：原来是 “𠆣”，为什么又变成 了“馉啠”？ 那么VBA如何通过“𠆣””字，得出“馉啠”来？ 敬谢~!

xyz74sc

编码问题，你设置了charset，就会自动转编码