Excel VBA 如何替换单元格里头的特殊字符

Question

Excel VBA 中要实现 单元格的内容变化后更新到SQL Server中，但是如果出现英文状态下的单引号(')就会出错，如何判断单元格的内容是否包含单引号并用其他字符替换掉

Answer 1

http://topic.csdn.net/u/20100429/20/7c565a94-901f-4cb7-be62-4afd95b65fe3.html?52479

Answer 2

看了下，那个是直接替换的，如果不清楚单元格中是否存在单引号的该怎么处理呢？也就是说需要先判断存在单引号之后再用replace替换的

Answer 3

你的问题，我遇到过，这是我的解决办法：'**********************************************************************************
'功能:去掉字符串内部的单引号字符
'**********************************************************************************
Public Function DeleteDyhInStr(ByVal ChStr As String) As String
Dim i As Integer, s As String
    s = ChStr
    i = InStr(s, "'")
    Do While Not i = 0
        If i = 1 Then
            s = Mid(s, 2)
        ElseIf i = Len(s) Then
            s = Left(s, Len(s) - 1)
        Else
            s = Mid(s, 1, i - 1) & Mid(s, i + 1)
        End If
        i = InStr(s, "'")
    Loop
    DeleteDyhInStr = s
End Function
'**********************************************************************************
'结束
'**********************************************************************************