在excel-vba中的特定第n个字符之后插入文本

我想插入额外的文本到excel vba中的文件path,每7“\”后我应该怎么做?

更新:

我有这样的领域:

M:\ project \ 2017 \ project name \ work \ name \ test.pdf

我想更新到:

M:\ project \ 2017 \ project name \ work \ name \ testfolder \ test.pdf

它看起来像你必须replace你的string中的"\"字符的6th出现"\testfolder\"

式:

 =SUBSTITUTE(A1,"\","\testfolder\",6) 

VBA代码:

 Sub insert_text() text_0 = Sheets("Sheet1").Range("A1").Value text_1 = WorksheetFunction.Substitute(text_0, "\", "\testfolder\", 6) Sheets("Sheet1").Range("A2").Value = text_1 End Sub 

结果图像:

在这里输入图像说明