В коде VBA есть строковая переменная. Как в ней заменить некий символ (группу символов) на другой (другую группу символов)? Есть ли простая функция - аналог Replace? Чтобы не городить процедуру с посимвольным поиском и заменой?
Т.е., вместо
Код: Выделить всё
Dim MyString As String
Dim ReplWhat As String
Dim ReplInto As String
MyString = "с 01/01/07 по 31/01/07"
ReplWhat = "/"
ReplInto = "."
While InStr(1, MyString, ReplWhat) > 0
Mid(MyString, InStr(1, MyString, ReplWhat), Len(ReplWhat)) = ReplInto
Wend
Код: Выделить всё
Dim ReplWhat As String
Dim ReplInto As String
MyString = "с 01/01/07 по 31/01/07"
ReplWhat = "/"
ReplInto = "."
MyString=ReplaceFunction(Where:=MyString, What:=ReplWhat, Replacement:=ReplInto)