本来可以很简单的删除
Dim vbc As Object
Set vbc = ThisWorkbook.VBProject.VBComponents("模块1")
ThisWorkbook.VBProject.VBComponents.Remove vbc
但由于asp.net 用户权限的问题,不能如愿
于是想了个新办法
在运行宏后最后加了一段代码
Dim n As String
Dim n1 As String
n1 = LCase(Workbooks(1).FullName)
n = Replace(n1, ".xls", "--") & ".xls"
Workbooks.Add
Workbooks(2).SaveAs Filename:= _
n, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks(1).Sheets("Sheet1").Move Before:=Workbooks(2).Sheets(1)
Workbooks(2).Save
Workbooks(2).Close
其实就是新增一个excel文件,然后把生成后的工作表复制到新工作表中,这样就完全没有vba宏的影子了