Excel VBA 如何替换单元格里头的特殊字符
Excel VBA 中要实现 单元格的内容变化后更新到SQL Server中,但是如果出现英文状态下的单引号(')就会出错,如何判断单元格的内容是否包含单引号并用其他字符替换掉
------解决方案--------------------------------------------------------
http://topic.csdn.net/u/20100429/20/7c565a94-901f-4cb7-be62-4afd95b65fe3.html?52479 ------解决方案--------------------------------------------------------
你的问题,我遇到过,这是我的解决办法:
'**********************************************************************************
'功能:去掉字符串内部的单引号字符
'**********************************************************************************
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
'**********************************************************************************
'结束
'**********************************************************************************