Excel VBA字符串特殊字符引发调用错误的检测与处理问题

错误信息 #

Invalid procedure call or argument（字符串链中存在异常字符，来自Power BI文档）VBA

问题描述 #

我正在开发Excel宏，用来从本地云端下载的文件里复制工作表，还要把其中两列数据转成XML文件给其他语言读取。现在遇到的问题是：读取单元格内容时，调试模式下字符串开头会出现“?”符号，但原文件里看不到这个符号；把字符串粘贴到Word并开启显示/隐藏功能后，会出现无法识别的特殊字符（显示为方框）。我试过在代码里加条件判断提取这个字符，但根本识别不了，没法删除或截断原字符串来避免报错，现在需要能检测这类特殊字符的方法。

解决方案 #

1. 核心检测思路 #

无法显示的特殊字符通常是非打印控制字符或超出基本ASCII范围的Unicode字符，可以通过AscW()函数获取字符的Unicode编码来精准识别——基本可打印ASCII字符的编码范围是32（空格）到126（~），不在这个区间的字符大概率是异常字符。

2. 自定义检测+清理函数 #

写一个通用函数，既能检测异常字符，又能直接清理掉这些字符：

' 检测并移除字符串中的非打印/异常字符，保留可打印ASCII和中文
Function CleanSpecialChars(ByVal inputStr As String) As String
    Dim cleanStr As String
    Dim i As Integer
    Dim charCode As Integer
    
    cleanStr = ""
    For i = 1 To Len(inputStr)
        charCode = AscW(Mid(inputStr, i, 1))
        ' 保留规则：可打印ASCII（32-126）+ 中文（Unicode &H4E00到&H9FA5）
        If (charCode >= 32 And charCode <= 126) Or (charCode >= &H4E00 And charCode <= &H9FA5) Then
            cleanStr = cleanStr & Mid(inputStr, i, 1)
        End If
    Next i
    CleanSpecialChars = cleanStr
End Function

3. 修改现有代码 #

把读取单元格的逻辑和检测、清理结合起来：

With Workbooks(Wbook).Sheets(WSheetData)
    ' 直接清理后赋值
    CM = CleanSpecialChars(.Range("B" & i).Value)
    DESC = CleanSpecialChars(.Range("A" & i).Value)
    
    ' 额外检测原字符串开头的异常字符
    If Len(.Range("A" & i).Value) > 0 Then
        Dim firstCharCode As Integer
        firstCharCode = AscW(Left(.Range("A" & i).Value, 1))
        ' 判断是否为异常字符
        If Not (firstCharCode >= 32 And firstCharCode <= 126) And Not (firstCharCode >= &H4E00 And firstCharCode <= &H9FA5) Then
            MsgBox "检测到开头异常字符，Unicode编码：" & firstCharCode
        End If
    End If
End With

4. 快速排查小技巧 #

• 在调试窗口打印字符编码：代码中加Debug.Print AscW(Left(DESC, 1))，运行后看立即窗口的输出，就能拿到特殊字符的具体编码，方便针对性处理
• Power BI导出的文件常出现零宽空格（Unicode编码&H200B），可以直接判断这个编码来快速定位

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