Я записал макрос в Excel, чтобы внести некоторые изменения в форматирование электронных таблиц. Я планирую запускать его каждый раз, когда открываю новый экспорт, чтобы начать работать с ним. Мне также хотелось бы, чтобы мой макрос переименовал файл на основе исходного имени, но добавил больше слов.
Например:
Старое имя файла: Sales.xls
Новое имя файла: 2019.07.10 Export Sales Backup.xlsx
Исходное имя файла будет каждый раз отличаться («Продажи», «Почта» и т. Д.), Поэтому мне нужно, чтобы код основывался на старом имени, а не просто дублировал все Продажи. Папка всегда будет одинаковой - файл всегда будет приходить с рабочего стола и сохраняться на рабочем столе.
Я прочитал несколько вопросов о переименовании, но не могу понять, как проанализировать исходное имя файла, чтобы отделить путь к файлу и оставить только тот бит, который мне нужен. Я также видел вопросы о пакетном переименовании, но я хочу сделать это как часть существующего макроса Excel, который я все равно уже буду запускать. Я уже прочитал эти форумы и выяснил, как добавить дату и изменить формат файла.
Мой текущий код говорит:
Sub Test()
FName = "C:\Users\Grace\Desktop\" & Format(Date, "yyyy.mm.dd") & ".xlsx"
ActiveWorkbook.SaveAs Filename:=FName, _
FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Я не знаю, с чего начать, пытаясь сохранить исходное имя файла. Любая помощь будет оценена.