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

Question

我想在excel vba中将额外的文本插入到文件路径中，每隔7个“\\”之后我应该怎么做？

更新：

我有这样的字段：

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

我想将其更新为：

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

Answer 1

看起来你必须将你的字符串中6th的"\\" char 替换为"\\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

结果图：