EXCEL表的自杀代码 

1 With ThisWorkbook
2         .Saved = True
3         .ChangeFileAccess xlReadOnly
4         Kill .FullName
5         .Close False
6  End With

 

posted @ 2010-02-27 22:36  RobinLao  阅读(842)  评论(0)    收藏  举报