Question

我将此行添加到我的一个模块的末尾：

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

到目前为止，它似乎仍然有效，但是我从大多数地方获取了大部分代码，而我还没有对其进行足够的测试以了解它是否可能在任何地方掉下来。该文件的目的是每个星期都有一个时间表，因此，每个星期都命名为“ w.e 11.10.19.xls”，那么我需要将新文件晚一个星期。谁能告诉我上面的代码是否按我的要求运行，或者在某些情况下会崩溃？

Answer 1

点（.）并不是日期格式的special symbol，因此它将始终保留.（例如，/会被替换为{当前语言环境的日期分隔符）。

因此，您的特定格式字符串是安全的。

如果您不愿意查阅非特殊字符的文档，则始终可以在它们前面添加斜杠以使它们成为非特殊字符，即使它们本来就是这样：

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

将工作簿的副本另存为“ w.e”，然后保存下周的星期五日期

1 个答案: