以下是引用Artless在2011-2-11 18:12:51的发言：

EXCEL工作簿中不能删除?

以下是引用不说也罢在2011-2-14 12:26:45的发言：

Public Sub DelVbaProject(ByVal sFileName As String)'这里参数即是XLS文件的完整路径,如：c:\myapp\1.xls
    On Error Resume Next
    Dim xlsApp As New Excel.Application'需要在工程里引用EXCEL对象哦
    Dim xlsWorkBook As Excel.Workbook
    Dim vbPro
        Set xlsWorkBook = xlsApp.Workbooks.Open(sFileName)
        Set vbPro = ActiveWorkbook.VBProject
        With vbPro
             For i = .VBComponents.Count To 1 Step -1
                    LCount = .VBComponents(i).CodeModule.CountOfLines
                    .VBComponents(i).CodeModule.DeleteLines 1, LCount
                    .VBComponents.Remove .VBComponents(i)
            Next i
        End With
        xlsWorkBook.Save
        xlsWorkBook.Close
        xlsApp.Quit
End Sub

以下是引用不说也罢在2011-2-14 17:22:09的发言：

代码本身没有问题的。我测试过。你也可以找任意一个有宏的XLS文件测试一下。
请注意下面两点：
1）EXCEL中将宏的级别设置为“低”；
2）EXCEL中，菜单——工具——宏——安全性——可靠发行商——选中“信任对于‘VISUAL BASIC’项目”的访问。