无效的外部过程vba excel

Question

我想编码一个宏，以关闭文档之前把最后修改日期放入Excel单元格。

这里是我的代码：

Private1 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Range ("A1" = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")) 
End Sub 

的错误出现：无效的外部过程。

请帮我解决这个问题。 谢谢。

Answer 1

而不是

Private1 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Range ("A1" = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")) 
End Sub 

使用

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time") 
End Sub