excel - 替换部分文件名(时间戳)

Question

保存带有时间戳的新文件名时遇到问题
然后它只是放入一个新的时间戳。

如何用新的时间戳替换名称中的当前时间戳？

我的文件名从“28-11-2018 XXXXXXX”变为“29-11-2018 28-11-2018 XXXXXX”

这是我的代码:

Sub workbook_save()
Dim thisWb As Workbook
Set thisWb = ActiveWorkbook
MyOldName = ActiveWorkbook.FullName
MyNewName = Format(Now, "dd-mm-yyyy") & " " & ActiveWorkbook.Name

ActiveWorkbook.SaveAs Filename:=thisWb.Path & "\" & MyNewName
Kill MyOldName
End Sub

提前致谢

Answer 1

尝试这个

在 fixfilename 中放入文件名的“XXXXXX”部分，我认为这是一个静态值。

Sub workbook_save()
Dim thisWb As Workbook
Dim fixfilename As String
Dim newfilename As String
Set thisWb = ActiveWorkbook

fixfilename = "TESTFILE"
newfilename = Format(Now, "dd-mm-yyyy") & fixfilename
thisWb.SaveAs Filename:=thisWb.Path & "\" & newfilename
End Sub