如何从VBA中的path中删除姓氏

我是新来的VBA我正在下面的任务

nPath = "Root\zTrash - No longer needed\NOC\NOC" 

我想从nPath删除\NOC ，以便只显示Root\zTrash - No longer needed 。

我正在使用这个代码：

 =(Left(nPath, InStrRev(nPath, "\") - 1)) 

但我只得到NOC

Answer 1

这个怎么样？

 Left(nPath, InStr(nPath, "\NOC") - 1) 

---

你正在使用InStrRevfind最后的 \ – 这不是你想要的。 使用带有\NOC InStr来查找\NOC的第一个实例

Answer 2

你可以分两步进行：

 Dim newString as String newString = Left(nPath, InStrRev(nPath, "\") - 1) newString = Left(newString , InStrRev(newString , "\") - 1)