问创建时在Excel模板中插入当前日期

EN

您可以使用工作表函数= date ()，但很明显，每当重新计算工作簿时，它都会更新为当前日期。

我能想到的唯一其他方法就是，正如1729所说的，编写Workbook_Open事件：

Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = Date
End Sub

通过对模板进行数字签名(在VBA IDE工具|数字签名...)，可以减少每次都需要用户接受宏的问题。并选择数字证书，但是，您需要从商业证书颁发机构获得证书(请参阅http://msdn.microsoft.com/en-us/library/ms995347.aspx)。用户将需要在第一次运行模板时选择始终信任此证书，但此后将不再提示他们。

您可以编辑excel的默认模板-

XLSTART目录中有一个名为Book.xlt的文件，通常位于C:\Program Files\Microsoft Office\Office\XLStart\

您应该能够添加一个名为Workbook_Open的宏

Private Sub Workbook_Open()
    If ActiveWorkBook.Sheets(1).Range("A1") = "" Then
        ActiveWorkBook.Sheets(1).Range("A1") = Now
    End If
End Sub

我的VBA有点生疏了，但是你可能会发现像这样的东西可以工作。

为了避免使用VBA，并且如果您认为您的用户可能会遵循说明，您可以要求他们复制日期，然后粘贴特殊->值来设置日期，使其在将来不会更改。