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 に答える