Excel/VBA从ThieWorkbook.Name中删除文本

Question

我试图通过使用marco保存excel文件的副本，但在保存时修改当前文件名后面的文本。我有一个可以工作的宏，但是在我可以修改文本之前，它会将文件扩展名添加到文件名中。

EG-我的文件被命名为“MyCurrentFile.xlsm”，当我保存它时会添加日期，但保留文件名称为“MyCurrentFile.xlsm01-14-16.xlsm”。

我可以以某种方式删除第一个.xlsm吗？

代码：

Sub Save_With_Todays_Date() 
' 
' Save_With_Todays_Date Macro 
' Save a copy of the workbook with todays date at the end. 

    ThisWorkbook.SaveCopyAs _ 
    Filename:=ThisWorkbook.Path & "\" & _ 
    ThisWorkbook.Name & _ 
    Format(Date, "mm-dd-yy") & ".xlsm" 

End Sub 

Answer 1

ThisWorkbook.Name = REPLACE（ThisWorkbook.Name “.XLSM”，格式（Date， “MM-DD-YY”）& “.XLSM”）

Answer 2

您可以使用Workbook.FullName property并解析扩展名。

我会建议离开拓客的Workbook.SaveAs method，让XlFileFormat Enumeration分配正确的扩展。对扩展进行硬编码会降低功能，并可能导致将错误的扩展应用于SaveAs。