Сохранение в формате: название_вчерашняя дата.xlsx

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранение в формате: название_вчерашняя дата.xlsx (Макросы/Sub)

Richman

Дата: Пятница, 28.08.2015, 13:55 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 346

Репутация: 54 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте, Друзья!

Вопрос такой: Как в VBA прописать, чтобы файл сохранялся в формате: название_вчерашняя дата_(номер вчерашней даты).xlsx?

Например :ЖилРемСтрой_27_08_15_(1).xlsx
ЖилРемСтрой_27_08_15_(2).xlsx

[vba]

Код

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\ве\ЖилРемСтрой\ЖилРемСтрой_27_08_15.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

[/vba]
Спасибо за советы

С Уважением, Richman

Ответить

_Boroda_

Дата: Пятница, 28.08.2015, 14:12 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вариант
[vba]

Код

Sub Макрос1()
     pp_ = "C:\Мои\Стереть\ЖилРемСтрой_"
     dd_ = Format(Date - 1, "DD\_MM\_YY")
     Do
         i = i + 1
         fn_ = pp_ & dd_ & "_(" & i & ").xlsm"
         If Len(Dir(fn_)) = 0 Then
             ActiveWorkbook.SaveAs Filename:=fn_, _
                 FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
             Exit Do
         End If
     Loop
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Rioran

Дата: Пятница, 28.08.2015, 14:25 | Сообщение № 3

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, Гениально! А подскажи, а как работает Len(Dir( Путь_к_Файлу )) ?

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

_Boroda_

Дата: Пятница, 28.08.2015, 14:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Спасибо.

Цитата Rioran, 28.08.2015 в 14:25, в сообщении № 3

как работает Len(Dir( Путь_к_Файлу )) ?

длина строки Дира, а про Дир смотри здесь
http://www.excelworld.ru/stuff/vba_function/files/dir/23-1-0-76
Если файла нет, то Дир = "" и длина его =0
Можно было и без Лен писать, просто Дир=""

Ответить

Richman

Дата: Пятница, 28.08.2015, 14:37 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 346

Репутация: 54 ±

Замечаний: 0% ±

Excel 2007

_Boroda_, Круто! Спасибо большое!

С Уважением, Richman

Ответить

Marr

Дата: Среда, 06.05.2020, 16:10 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
Подскажите пожалуйста как при открытии UserForm в textbox автоматически присвоить вчерашнюю дату ? Нужно в таком формате, например, 05 мая 2020

Ответить

Pelena

Дата: Среда, 06.05.2020, 17:40 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Marr, вопрос не относится к данной теме. Создайте свою. Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Сохранение в формате: название_вчерашняя дата.xlsx (Макросы/Sub)

Страница 1 из 1
1