Рабочая книга для сохранения макроса

Пытаясь использовать книгу, необходимо сохранить макрос, чтобы сохранить имя файла с номером даты и временем. Чтобы сохранить файл с новым именем «BOOK1 – 08 Март 2016 – Ред. 001 08-59.xlsx» или если книга заканчивается с помощью макроса .xlsm. Вот кодировка до сих пор, но она, похоже, не работает или не делает то, что она должна делать. Любые советы приветствуются.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.EnableEvents = False Dim file_name As Variant Dim strDate As String Dim strVer As String ' Get the file name. file_name = Application.GetSaveAsFilename( _ FileFilter:="Excel Files,*.xlsx,Macro EnabledWorkbook,*.xlsm, All Files,*.*", _ Title:="Save As File Name") ' check if the user has canceled. If file_name = False Then Exit Sub strDate = Format((Date), "dd MMM yyyy") strVer = "0" strVer = Val(strVer) + 1 'Increment number ' Save the file with the new name. If LCase$(Right$(file_name, 4)) <> ".xls" Then file_name = file_name & " - " & strDate & _ " - Rev " & Format(Val(strVer), "00# ") _ & Format(Time(), "hh-mm") & ".xls" End If ActiveWorkbook.SaveAs Filename:=file_name End Sub 

Interesting Posts

Неправильное имя файла при нажатии кнопки «Открыть» в «Сохранить / Открыть диалог»

Моя сумма sumif неверная стоимость

Excel – Рассчитать среднее значение 90% от самого низкого значения

Выберите из списка, но добавьте другое значение в ячейку в Excel.

вставка скребковых данных из Интернета в новый рабочий лист и имя рабочего листа на основе значений в столбце

Скопировать данные в новую таблицу, если она соответствует критериям из исходной таблицы

Статическая переменная модуля Excel VBA приходит в «Ничто» после использования

«Вы хотите открыть или сохранить», не отображая

Команда Excel VBA Find Next

Прочитайте несколько файлов .xlsx из каталога в отдельные кадры данных Pandas на основе имени файла

Фильтрация данных на основе определенного слова, а затем копирование на следующий лист на основе соответствия

Формула Excel возвращает все нули или! REF

Командная кнопка для открытия пути файла – файла, расположенного в той же кнопке ячейки, выровнена с

График диаграммы Excel 2003 XYZ, такой как линейная диаграмма XY

Прогромматически выберите сегодняшнюю дату на Slicer

Давайте будем гением компьютера.