求大神帮帮忙：Excel,用宏控制期限，到期后自己删除。

level 1

大漠长虹楼主

是不是还应该导入宏？能不能做好一个文件发给我，设定日期为今天，明天以后运行就自动删除？[email protected]或是QQ317753973，不胜感激。

2013年02月23日 11点02分 1

level 1

大漠长虹楼主

@zipall @轻舟上逆

2013年02月23日 11点02分 3

吧务

level 12

凝聚每分爱

不知道怎么移除了，清除代码可以不？
Sub My()
If DateSerial(2013, 2, 25) = Date Then
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End If
End Sub

2013年02月23日 12点02分 5