在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

結果圖：