创建一个 MS Excel 文件，该文件会在到达特定时间或日期时自行删除

Question

关于MS Excel，我想知道如何创建一个在达到某个日期或时间时从计算机中删除的Excel文件。

是否可以？如果是，请告诉我怎么做？

Answer 1

如果将此代码添加到ThisWorkbook模块中，则如果当前日期晚于 2014 年 1 月 1 日，则工作簿将自毁。

Private Sub Workbook_Open()
If Now() > #1/1/2014# Then Call SuicideSub
End Sub

'

Sub SuicideSub()
'courtesy Tom Ogilvy
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub