如何使用 VBA 在字符串中查找字符

Question

我已从另一个函数传递过来，文件夹名称如 foldername = "a\b\c" 或 foldername = "a"，我正在尝试查找包含 "\" 的文件夹名称并将 "\" 替换为"__"，根据"__"拆分文件夹名称并传入数组。

请看看我到目前为止所做的尝试。

示例值：

If WorksheetFunction.Find("\", foldername) = 1 Then
       foldername  = WorksheetFunction.Substitute(foldername, "\", "__")
       SheetNames() = Split(foldername, "__")
End If

我收到以下错误。

Answer 1

SheetNames() = Split(foldername, "\")
foldername=join(sheetnames,"__")

这样就可以了。

Answer 2

Dim a as Integer

'consider current value of is `foldername  = "a\b\c"`

a = InStr(foldername, "\")

'if InStr is not able to find the value funtion returns 0

If a <> 0  Then
       foldername  = Replace(foldername, "\", "__")
       SheetNames() = Split(foldername, "__")
End If

谢谢大家的建议，非常感谢。

如何使用 VBA 在字符串中查找字符

How to find a character in a string using VBA

excel

vba

worksheet-function