VBA导入含特殊字符的bas等模块时乱码，如何保留原字符？

问题原因 #

VBE的VBComponents.Import方法默认使用系统ANSI编码读取文件，而GitHub仓库中的bas/frm文件通常是UTF-8编码（无BOM），编码不匹配导致特殊字符（如ø）被错误解析为乱码（如ø）。

解决方案 #

替换直接调用Import的方式，改用UTF-8编码读取文件内容，再将内容写入新模块，确保特殊字符完整保留。

替换后的导入函数代码 #

Sub ImportUTF8BasFile(strPath As String)
    Dim filePath As String
    Dim moduleName As String
    Dim vbComp As VBComponent
    Dim stream As Object
    Dim fileContent As String
    
    ' 目标文件路径和模块名称
    filePath = strPath & "\pb_integration-main\pensionBrokerExport.bas"
    moduleName = "PensionBrokerExport"
    
    ' 移除已存在的同名模块
    On Error Resume Next
    Set vbComp = Application.VBE.ActiveVBProject.VBComponents(moduleName)
    If Err.Number = 0 Then
        Application.VBE.ActiveVBProject.VBComponents.Remove vbComp
    End If
    On Error GoTo 0
    
    ' 使用ADODB.Stream以UTF-8编码读取文件内容
    Set stream = CreateObject("ADODB.Stream")
    With stream
        .Charset = "UTF-8"
        .Open
        .LoadFromFile filePath
        fileContent = .ReadText
        .Close
    End With
    Set stream = Nothing
    
    ' 创建新模块并写入读取到的内容
    Set vbComp = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)
    vbComp.Name = moduleName
    vbComp.CodeModule.AddFromString fileContent
    
    Debug.Print moduleName & " 已成功导入，特殊字符保留正常"
End Sub

额外说明 #

1. frm文件处理：frm文件的文本部分（代码和控件定义）同样可以用此方法读取写入，但需保留文件的完整结构；frx是二进制资源文件，直接使用VBComponents.Import导入即可，不会有编码问题。
2. 编码验证：确保GitHub仓库中的bas/frm文件是以UTF-8编码保存的（GitHub默认上传文件为UTF-8，若本地编辑需确认保存编码）。
3. 权限要求：运行代码需启用Excel的信任中心设置，允许对VBA项目对象模型的访问（文件>选项>信任中心>信任中心设置>宏设置>勾选"信任对VBA项目对象模型的访问"）。

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