Сохраните копию моей рабочей книги как «мы», а затем дату пятницы со следующей недели.

Question

Я добавил эту строку в конец одного из моих модулей:

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ("w.e " & Format(Date + 14 - Weekday(Date, vbSaturday), "DD.MM.YY") & ".xls")

И пока, похоже, это работает, однако большую часть кода я взял с мест и не проверял егодостаточно, чтобы знать, может ли он упасть где-нибудь. Целью этого файла является расписание на каждую неделю, поэтому каждая неделя называется, например, «мы 11.10.19.xls», тогда мне нужно, чтобы новый файл был на одну неделю позже этого. Кто-нибудь может посоветовать, если приведенный выше код работает так, как мне нужно, или есть сценарии, что он будет падать?

Answer 1

Точка (.) не является специальным символом для форматирования даты, поэтому она всегда будет оставаться . (в отличие, например, /, которая будет заменена датой текущей локалиразделитель).

Следовательно, ваша конкретная строка формата безопасна.

Если вы не хотите обращаться к документации, в которой символы не являются специальными, вы всегда можете добавить косую черту перед нимисделать их не особенными, даже если в противном случае они будут:

Format(Date + 14 - Weekday(Date, vbSaturday), "DD\.MM\.YY")