在asp.net 中生成excel高级报表后删除vba宏代码

本来可以很简单的删除 

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宏的影子了