|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.09.2011, 17:36 | #1 |
Регистрация: 15.09.2011
Сообщений: 3
|
Макрос для переименования файла.
Подскажите пожалуйста, как сделать переименование файла с помощью макроса, с добавлением даты перед началом имени файла.
Например, имя файла "Qwerty.doc", а нужно получить "15.09.11 - Qwerty.doc" Я написал макрос, но он не переименовывает а создает новый файл, а нужно чтобы оставался только один файл Sub SaveAsDate() Dim strDate As String strDate = Format(Now(), "ddmmyy") ActiveDocument.SaveAs ActiveDocument.Path & "\" & strDate & " " & ActiveDocument.Name End Sub |
15.09.2011, 18:34 | #2 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
|
SaveAs - сохраняет под другим именем, добавьте удаление файла со старым именем
Код:
на неконкретные вопросы даю неконкретные ответы ...
|
15.09.2011, 19:39 | #3 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,043
|
уверен, что Килл, когда нибудь даст сбой, автор проверите, отпишитесь пжл
|
15.09.2011, 19:47 | #4 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
|
конечно нужно проверять что при переименовании не возникло ошибки и такой файл существовал ...
на неконкретные вопросы даю неконкретные ответы ...
|
15.09.2011, 22:10 | #5 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,043
|
|
17.09.2011, 06:13 | #6 |
Регистрация: 15.09.2011
Сообщений: 3
|
Спасибо, с удалением работает нормально, пока без сбоев.
А из-за чего может возникнуть ошибка с занятостью файла? И разве при этом макрос выполнится удачно а не напишет, что произошла ошибка? |
17.09.2011, 14:40 | #7 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,043
|
|
17.09.2011, 15:09 | #8 |
Регистрация: 15.09.2011
Сообщений: 3
|
|
17.09.2011, 15:45 | #9 |
Особый статус
Участник клуба
Регистрация: 24.11.2008
Сообщений: 1,535
|
Вроде бы есть, но лучше, наверно, поставить вначале (во 2-й строке)
Код:
Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html
|
17.09.2011, 20:57 | #10 | |
Форумчанин
Регистрация: 17.07.2009
Сообщений: 519
|
А ещё никто не отменял для закрытых файлов оператора NAME (VBA)
Цитата:
Код:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
форма для переименования файлов | Ципихович Эндрю | Microsoft Office Word | 0 | 23.04.2011 15:11 |
Exel - при открытии файла через макрос, если файл отсутствует - виснет весь макрос | gregory1b | Microsoft Office Excel | 2 | 14.10.2010 11:51 |
Макрос, запускающий макрос из другого закрытого файла | petruha | Microsoft Office Excel | 7 | 14.03.2010 11:31 |
Макрос для вызова файла! | SStone | Microsoft Office Excel | 3 | 02.03.2009 19:58 |