Заменить части имени файла (отметка времени)

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

Answer 2

Format(Now, "dd-mm-yyyy") вы сохраняете ваш файл просто как дд-мм-гггг - в имени файла не выводятся часы, минуты, секунды, измените формат даты на дд-мм-гггг ччммсс000.