EXCEL定时删除如何 *** 作

可以转变一下思路：其实所谓的自动定时删除，就是在你下一次使用这个文件时，由某段VBA代码自动判断你规定的数据区域，不符合条件要求的——例如小于当前日期——就将该行/列删除。只要在你查看文件中报表之类的结果集前，能实现源数据的更新就好了，这样结果集自然就是满足你要求的。

所以，尝试编写一个workbook.open事件中运行的代码，依照某个条件去依次判定你的数据，满足的放过，不满足的，杀掉！

Excel文件无法自动删除的，但是可以用VBA设定一个时间，到期后自动销毁，比如填充成需要的内容。

可以使用以下代码：

1

2

3

4

5

6

7

Private Sub Workbook_Open()

If Date >Sheet1.[a1] Then '设定一个时间，到期时间，date是返回当前日期。

Range("a1:h100").Select '选中需要销毁的单元格范围

Selection.FormulaR1C1 = "到期" '用“到期”来填充。

ThisWorkbook.Close True

End If

End Sub

可以使用其他第三方程序进行更多的限制。

你好，打开你的工作簿文件，按alt+F11组合键，打开vba窗口，双击左边窗口中的thiswordbook，在新打开的窗口中粘贴下面的代码，关闭vba窗口，保存你的文件退出。

这样以后再打开始，若日期等于2016年5月25日程序就会自动……。

Private Sub Workbook_Open()

Application.DisplayAlerts = False

If Date = "2016-5-25" Then Sheets("sheet2").Delete

Application.DisplayAlerts = Tru

End Sub

---