Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Курилка
Страницы: 1
RSS
Как в Word / Excel при сохранении сделать авто-генерацию уникального имени?
 
#1
02.08.2023 10:19:58

Здравствуйте. Много программ при сохранении файла генерируют уникальное имя (порядковый номер или дата-время в имени) чтобы при сохранении не появлялось диалоговое окно «Этот файл уже существует. Перезаписать». Подскажите, как в Word / Excel при сохранении сделать авто-генерацию уникального имени?
 
 
 
#2
02.08.2023 10:27:24
rownong27, здравствуйте

Цитата
rownong27: как в Word / Excel при сохранении сделать авто-генерацию уникального имени?
Вот тут есть генерация уникальных ключей
Изменено: Jack Famous - 02.08.2023 10:28:11
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
02.08.2023 13:58:12
Посмотрел тему, но не понял, как эту возможность (генерация уникальных ключей для имени файла при сохранении) подключить к моему Word ?  
 
 
 
#4
02.08.2023 14:43:39
Цитата
rownong27: не понял, как эту возможность … подключить к моему Word?
покажите, как "подключили к своему" Excel — может, кто-то и с вордом поможет…
Изменено: Jack Famous - 02.08.2023 14:44:10
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#5
02.08.2023 16:34:59
Я не к  Excel  не к Word не подключал еще, т.к. не пойму как это сделать.
 
 
 
#6
02.08.2023 17:03:06
rownong27, для ускорения процесса можно обратиться в платную ветку или ждать бесплатной помощи здесь
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
02.08.2023 18:24:35
Наверное что-то вроде этого имеется ввиду?
Код
Sub СохранитьСУникальнымИменем()
    Dim ИмяФайла As String
    ИмяФайла = "Путь\к\вашей\папке\" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".docx"
    ActiveDocument.SaveAs ИмяФайла
End Sub
 
 
 
#8
03.08.2023 14:47:23
Вот здесь я приводил готовую функцию, которая проверяет, есть ли такой файл по указанному пути и если есть - добавляет порядковый номер в скобках:
Сохранить вложения из Outlook в указанную папку
Функция "GetAtchName".
Передаете в неё полный путь, по которому хотите сохранить файл и получаете в ответ полный путь, по которому можно сохранить файл уже с уникальным именем:
Код
Dim sFName$
sFName = "C:\Temp\Book.xlsx"
'если файл Book.xlsx уже есть в папке Temp, то переменной sFName будет назначено имя Book(1).xlsx
'если файл Book(1).xlsx тоже уже есть в папке Temp, то переменной sFName будет назначено имя Book(2).xlsx
' и т.д.
sFName = GetAtchName(sFName)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Наверх