例如我想到2013年3月2号後自动删除一个excel表格,在表格中建了个宏叫Macro1 具体如下: Sub Macro1() Private Sub Workbook_Open() Application.DisplayAlerts = False Dim datee As Date datee = #3/2/2013# If Date > datee Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If End Sub
但这个宏执行不了,2013年3月4号这个excel表格还没有删除!我不是电脑的管理员,是用户这不会影响吧? 把宏的第一句删除,变成: Sub Workbook_Open() Application.DisplayAlerts = False Dim datee As Date datee = #3/2/2013# If Date > datee Then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If End Sub
然后把宏放在excel的thisworkbook下面 宏名取什麼呀?输入完成後怎麼去查看有没有设置成功?用什麼宏名去查看源代码? 这个的宏名称就是Workbook_Open,是excel内置的一个过程..在你打开文件的时候执行宏.. 如果你打开的日期超过3/2/2013,这个文件在打开的时候即被删除. 你可以复制这段代码到任何一个空文件里,测试,切记不要放到你重要的文件去测试. 看红代码按ALT+F8即可
|