Excel VBA UserForm的TreeView控件无法显示日文字符问题求助

根本原因 #

你使用的TreeView是VB6时代遗留的ActiveX控件，默认不支持Unicode编码，仅适配系统默认ANSI代码页的字符，若你的Windows系统非日语区域设置，日文字符就会显示为乱码；而Excel内置的ListBox控件原生支持Unicode，因此字符移动到ListBox后可以正常展示。

排查步骤 #

• 确认系统区域设置：打开控制面板→区域→管理→非Unicode程序的语言，查看当前是否为日语，可临时修改为日语重启系统后验证TreeView日文是否正常显示，若恢复正常即可确定为编码适配问题。
• 确认数据源编码：复制工作表内的日文内容到记事本查看是否显示正常，排除数据源本身存储乱码的问题。
• 排除控件字体配置问题：选中TreeView控件，查看属性中的Font选项是否选择了包含日文字形的字体（如MS PGothic、Meiryo、微软雅黑等），部分默认字体无日文字形也会导致显示异常。

可行解决方法 #

方法1：修改控件字体配置（优先尝试，操作最简单） #

在UserForm设计界面选中TreeView控件，在属性窗口将Font修改为支持日文的系统字体，也可以直接在初始化代码中添加配置：

' 放在UserForm_Initialize过程最开头
UserForm1.TreeView1.Font.Name = "MS PGothic"
UserForm1.TreeView1.Font.Charset = 128 ' 128对应日文Shift-JIS字符集

方法2：强制控件使用Unicode渲染（无需替换控件） #

调用Windows API给TreeView发送Unicode格式设置消息，强制控件用Unicode渲染文本，可兼容32/64位Excel：

' 放在模块头部声明API
#If VBA7 Then
    Declare PtrSafe Function SendMessageW Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else
    Declare Function SendMessageW Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If
Const TVM_SETUNICODEFORMAT = &H113D

' 在UserForm_Initialize过程开头调用即可
Call SendMessageW(TreeView1.hWnd, TVM_SETUNICODEFORMAT, 1, 0)

配置完成后不需要修改系统区域，TreeView即可正常显示多语言字符。

方法3：替换为支持Unicode的TreeView控件 #

如果上述方法无效，可以替换原有ActiveX TreeView为微软Forms 2.0框架下的TreeView控件，或其他第三方支持Unicode的VBA TreeView控件，替换后原有业务逻辑不需要大幅修改即可正常运行。

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