Excel VBA字面字符串特殊字符异常：希腊同事端德语字符变希腊字符

本质原因 #

这个问题的核心是VBA代码页与系统字符编码的映射不匹配：VBA默认用系统ANSI代码页存储字符串字面量，而非原生Unicode。你遇到的ä变δ的情况，正好是Windows-1252（德语ANSI）的ä（十六进制0xE4）对应Windows-1253（希腊语ANSI）的δ，完全匹配错误案例。

排查与修复步骤 #

• 验证系统活动代码页：
  打开命令提示符，执行chcp命令。正常希腊语系统应该返回Active code page: 1253，如果返回其他值（比如1252），说明代码页被临时或永久修改，导致字符映射错误。
• 检查VBA工程代码页设置：
  在VB编辑器中右键工程→属性→通用标签，查看“代码页”选项。如果工程设置为德语（1252），而同事系统用1253打开，就会乱码。将代码页改为希腊语（1253）即可。
• 替换字面量为Unicode转义：
  彻底避免代码页问题，把含特殊字符的字面量换成ChrW()拼接。比如：

  ' 原代码：
  ' Dim str As String: str = "Empfänger"
  ' 修改为：
  Dim str As String: str = "Empf" & ChrW(&H00E4) & "nger"
  

  ChrW()直接调用Unicode字符值，不受代码页影响。
• 修正TXT输出编码：
  宏默认用ANSI编码写入TXT，改成UTF-8输出确保兼容性：

  Dim stream As Object
  Set stream = CreateObject("ADODB.Stream")
  stream.Charset = "UTF-8"
  stream.Open
  stream.WriteText str ' str为目标字符串
  stream.SaveToFile "路径\输出文件.txt", 2 ' 2表示覆盖现有文件
  stream.Close
  Set stream = Nothing
  

• 检查Office语言组件：
  确认该同事的Office是否安装了完整的希腊语语言包，且编辑语言设置正确。个别用户的Office语言组件可能存在损坏，导致编码解析异常。

内容的提问来源于stack exchange，提问作者Manouil Gioulountas