Find the position of the last specified character in a string in excel vba

Question

我想知道以下代码中最后一个“ \\”的位置：

Application.ActiveWorkbook.Path

Answer 1

You use INSTR to find the location of one string within the other.

For example:
C:\\MyPC\\SomeOtherPath - the backslash is in position 3 as shown in this code.
INSTR("C:\\MyPC\\SomeOtherPath", "\\")

This doesn't give you what you want though - you want the reverse of this. Luckily VBA gives that with INSTRREV :

INSTRREV("C:\\MyPC\\SomeOtherPath", "\\")

This returns the position of the last backslash - in position 8.

Answer 2

You can use this code:

Path = Application.ActiveWorkbook.Path
CharacterSearch = "\"
x = InStr(Path, CharacterSearch)
Do Until InStr(x + 1, Path, CharacterSearch) = 0
x = InStr(x + 1, Path, CharacterSearch)
Loop
Debug.Print x

Where you loop to find all \\ until InStr is 0, ie,until the last backlash is found.