Получить часть имени файла и вставить в ячейку

Question

У меня есть лист для копирования 1 страницы, а затем создайте новую книгу с этими данными и сохраните ее как новое имя файла.

Моего кода для сохранения файла является -

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

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

Я хочу взять даты/время после слова работы и вставить это в ячейке G2.

Как я мог это сделать? (Я не хочу, чтобы он возвращал текущую дату/время, так как это может измениться, поэтому мне нужно, чтобы у него были определенные числа из пути к файлу.

Answer 1

Предполагая, что книга сохранена в соответствующем формате имени, используйте эта формула в G2.

=TRIM(LEFT(SUBSTITUTE(MID(CELL("filename"), FIND("REF ",CELL("filename"))+4, 99), ".", REPT(" ", 99)), 99))