Excel 获取部分文件名并插入到单元格中

我已经设置了一个工作表来复制一页，然后用该数据创建一个新工作簿，并将其另存为新文件名

我保存文件的代码是-

    NewName = "HotterPGPalletDespatch - REF " & Format$(Date, "MMDDYYYY") _
     & "-" & Format(CStr(Now),     "hhmm") & ""

       ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\New\" & NewName, FileFormat _
        :=51, CreateBackup:=False

我想把日期/时间放在单词Ref之后，并将其插入单元格G2

---

我怎么能这样做？我不希望它再次获取当前日期/时间，因为这可能会更改，所以我需要它从文件路径中获取特定的数字。

假设工作簿已以适当的名称格式保存，请在G2中使用此公式

=trimlefitsubstituteMidCellFileName，FINDREF，CELLfilename+4,99，，，REPT，99,99