| 发表于:2007-04-20 21:05:131楼 得分:0 |
方法有好多种,以下是其中的一种: function cancelmacro(filename as string) dim wk as workbook set wk = getobject(filename) wk.sheets.copy wk.close savechanges:=false set wk = nothing application.displayalerts = false call activeworkbook.close(true, filename) application.displayalerts = true end function | | |
|