例如我想到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
但這個宏執(zhí)行不了，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內置的一個過程..在你打開文件的時候執(zhí)行宏..
如果你打開的日期超過3/2/2013,這個文件在打開的時候即被刪除.
你可以復制這段代碼到任何一個空文件里,測試,切記不要放到你重要的文件去測試.
看紅代碼按ALT+F8即可
喜歡 
頂
難過
囧
圍觀
無聊
