vba - VBA 日期和保存

Question

我正在尝试构建一个宏，将当前日期（2012 年 12 月 15 日）放在工作表的一个单元格（比如 A1）中，将工作表另存为 12.15.2012，然后放置昨天的日期（2012 年 12 月 14 日）在同一个单元格中，保存工作表等等。我怎么做？太感谢了！

Answer 1

将日期函数与 Format() 结合使用：

'This puts yesterdays date in cell A1 and saves the workbook with that format
Private Sub test()
    Range("A1").Value = Format(DateAdd("d", -1, Now()), "dd/MM/yy")
    ActiveWorkbook.SaveAs "something" & Format(DateAdd("d", -1, Now()), "dd/MM/yy")
End Sub

现在您可以遍历它并开展您的业务。

Answer 2

您只想保存工作表还是工作簿？对于工作表，您可以使用：

Range("A1").Value = Format(Now(), "mm/dd/yyyy")
ActiveSheet.Name = Format(Range("A1").Value, "mm.dd.yyyy")
Range("A1").Value = Format(DateAdd("d", -1, Range("A1").Value), "dd/mm/yyyy")

请注意日期格式，不允许使用“/”作为文件名或工作表名。