2

我通过在 MS Excel 中插入一个表来链接一个 Sharepoint 列表。该表中的某些单元格值包含我在 VBA 调试器中看到的无效字符，或者如果我将单元格值复制到 Notepad++，用问号可视化。我曾尝试使用如下正则表达式，但没有成功。对此问题的任何见解将不胜感激。
亲切的问候

Function SpecialReplace(ByVal Txt As String) As String
    Dim Rg As Object     
    Set Rg = CreateObject("vbscript.RegExp")
    With Rg
        .Pattern = "[0-9a-zA-Z]"
        .Global = True
        SpecialReplace = "A" & .Replace(Txt, "")
    End With
    Set Rg = Nothing
End Function
4

1 回答 1

1

解决方案相当简单：

.Pattern = "[^0-9a-zA-Z]"

GL与VBA之争！

于 2013-03-24T17:49:18.410 回答