如何解决VBA Debug.Print即时窗口字符显示错误问题？

问题根源 #

Application.GetOpenFilename返回的字符串基于系统默认ANSI代码页，无法正确处理Unicode特殊字符（如西班牙语的ó），导致即时窗口输出时出现编码乱码（如ó）。

解决方案1：改用FileDialog获取Unicode文件名 #

FileDialog原生支持Unicode路径，能直接返回正确的字符编码，是最可靠的解决方式：

Sub abrirArchivo()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .Filters.Clear
        .Filters.Add "Archivo Txt", "*.txt"
        .Title = "Seleccione un archivo para abrir"
        .AllowMultiSelect = False
        
        If .Show = -1 Then
            Debug.Print "El archivo es: " & .SelectedItems(1)
        End If
    End With
    
    Set fd = Nothing
End Sub

解决方案2：编码转换修复（兼容GetOpenFilename） #

如果必须使用GetOpenFilename，可通过编码转换将ANSI字符串转为Unicode：

Sub abrirArchivo()
    Dim nombreArchivo As String
    Dim unicodePath As String
    
    nombreArchivo = Application.GetOpenFilename(FileFilter:="Archivo Txt, *.txt", _
    Title:="Seleccione un archivo para abrir", MultiSelect:=False)
    
    ' 将ANSI路径转换为Unicode编码
    unicodePath = StrConv(nombreArchivo, vbUnicode)
    Debug.Print "El archivo es: " & unicodePath
End Sub

辅助设置：确保即时窗口字体支持特殊字符 #

1. 打开VBA编辑器，点击工具→选项
2. 切换到编辑器格式选项卡，将字体改为支持Unicode的类型（如Segoe UI、Arial Unicode MS）
3. 重启VBA编辑器后测试输出

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