Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сохранение файла Эксель с сегодняшней датой
 
#1
19.09.2013 16:33:25
Ребята, добрый день!
Хочу в конце своего макроса добавить строчку, которая будет сохранять файл с Названием "Прайс 2013-09-19"
в формате Эксель 2003-2007,дата всегда сегодняшняя, добавляю следующую строчку в макрос:

ActiveWorkbook.SaveAs Filename:=("Прайс & TEXT(TODAY(),""ГГГ-ММ-ДД"), ".xls"

Не хочет работать,что я делаю не так?
 
 
 
#2
19.09.2013 16:44:50
Код
strNewName = "Прайс " & Format(Date, "YYYY-MM-DD") & ".xls"
 
 
 
#3
19.09.2013 17:42:24
не работает ((
 
 
 
#4
19.09.2013 17:51:50
А так:
Код
strNewName = "Прайс " & Format(Date, "YYYY-MM-DD") & ".xls"
ActiveWorkbook.SaveAs Filename:=strNewName
или
Код
ActiveWorkbook.SaveAs Filename:="Прайс " & Format(Date, "YYYY-MM-DD") & ".xls"
 
 
 
#5
20.09.2013 16:29:10
Работает,спасибо!

Только вот когда открываю этот сохраненный файл, то Эксель выдает сообщение:
"Действительный формат открываемого файла отличается от указываемого  его расширением имени файла.
Перед открытием данного файла убедитесь,что он не поврежден и получен из надежного источника" (((
 
 
 
#6
20.09.2013 16:57:42
Запишите рекордером сохранение в этом формате, используйте код.
У меня тут 2003 - не могу проверить. А у Вас вероятно 2007-13.
 
 
 
#7
20.09.2013 17:01:42
Нашла выход из ситуации:

ActiveWorkbook.SaveAs Filename:=("Прайс " & Format(Date, "YYYY-MM-DD") & ".xls"), FileFormat:=xlNormal
 
 
 
#8
20.09.2013 17:37:41
А если расширение файла другое (например xlsm,xlsb ....)? ... нужно определить его:

Код
расширение_файла = (Split(ActiveWorkbook.Name, ".")(UBound(Split(ActiveWorkbook.Name, "."))))


Потом уже можно смело сохранять:


Код
strNewName = "Прайс " & Format(Date, "YYYY-MM-DD") & "." & расширение_файла
ActiveWorkbook.SaveAs Filename:=strNewName


или

Код
ActiveWorkbook.SaveAs Filename:="Прайс " & Format(Date, "YYYY-MM-DD") & "." & расширение_файла
Изменено: SLAVICK - 20.09.2013 17:39:38
 
 
 
Страницы: 1
Читают тему
Наверх