如何使用Excel宏将文本添加到文件名

Question

我在excel中录制了一个宏，以对电子表格进行一些格式更改。我计划每次打开新的导出文件开始运行时就运行它。我还希望宏根据原始名称重命名文件，但添加更多单词。

例如：

旧文件名：Sales.xls

新文件名：2019.07.10 Export Sales Backup.xlsx

原始文件名每次都会有所不同（“销售”，“邮寄”等），因此我需要代码以旧名称为基础，而不仅仅是复制Sales的所有内容。该文件夹将始终相同-该文件将始终来自Desktop，并保存到Desktop。

我已经阅读了一些有关重命名的问题，但是我不知道如何解析原始文件名以分离出文件路径并仅保留我需要的位。我还看到了有关批处理重命名的问题，但是我想将其作为现有的excel宏的一部分来进行，无论如何我都将继续运行它。我已经阅读了这些论坛，并了解了如何添加日期和更改文件格式。

我当前的代码说：

Sub Test()

FName = "C:\Users\Grace\Desktop\" & Format(Date, "yyyy.mm.dd") & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=FName, _
    FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

End Sub

我不知道从哪里开始尝试保留原始文件名。任何帮助将不胜感激。