另存的文件用VBA如何不带代码？

风中雨清

我有一个.xls的表另存到D盘下，如何设置代码另存的时候把D盘下的该文件代码删了？
从网上看来的代码，弄到我的表里就在with workbooks.open(s)这一段过不去了，提示1402错误
    Dim vbc As Object, shp As Shape, s$, sh As Worksheet
    s = ThisWorkbook.Path & "\备份" & ThisWorkbook.Name
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ThisWorkbook.SaveCopyAs s
    With Workbooks.Open(s)
        For Each sh In .Sheets
            For Each shp In sh.Shapes
                shp.Delete
            Next
        Next
        For Each vbc In .VBProject.VBComponents
            Select Case vbc.Type
            Case 1, 2, 3
                With Application.VBE.ActiveVBProject.VBComponents
                    .Remove .Item(vbc.Name) '删除模块、类模块、窗体
                End With
            Case Else
                vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines '删除工作表或Thisworkbook代码区代码
            End Select
        Next
        .Close True
    End With

crazy0qwer

上面代码差不多了啊，照下面修改下。
尤其注意   With Application.VBE.ActiveVBProject.VBComponents  这句对象搞错了。应该指定为你要删除的工作簿

1. Sub 删除代码()
   
2.     Dim M As Object, Wb As Workbook
   
3.     Set Wb = ActiveWorkbook
   
4.     For Each M In Wb.VBProject.VBComponents
   
5.         If M.Type <> 100 Then
   
6.               Wb.VBProject.VBComponents.Remove M '如果不是工作表，则移除
   
7.         ElseIf M.Type = 100 Then
   
8.             M.CodeModule.DeleteLines 1, M.CodeModule.CountOfLines  '如果是工作表则删除
   
9.         End If
   
10.     Next
    
11. End Sub
    
12. With Application.VBE.ActiveVBProject.VBComponents

复制代码

linkspeed

楼主的意思，应该是删文件代码吧！不是删工作表！
我也想知道呢！关注

风中雨清

crazy0qwer 发表于 2013-6-2 17:08
上面代码差不多了啊，照下面修改下。
尤其注意   With Application.VBE.ActiveVBProject.VBComponents  这 ...

运行时错误1004
应用程序或对象程序错误

crazy0qwer

风中雨清 发表于 2013-6-2 21:52
运行时错误1004
应用程序或对象程序错误

1. Sub aa()
   
2.     Dim vbc As Object, shp As Shape, s$, sh As Worksheet, M As Object
   
3.    
   
4.     s = ThisWorkbook.Path & "\备份" & ThisWorkbook.Name
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     ThisWorkbook.SaveCopyAs s
   
8.    
   
9.     With Workbooks.Open(s)
   
10.         For Each sh In .Sheets
    
11.             For Each shp In sh.Shapes
    
12.                 shp.Delete
    
13.             Next
    
14.         Next
    
15.         
    
16.         For Each M In .VBProject.VBComponents
    
17.             If M.Type <> 100 Then
    
18.                 .VBProject.VBComponents.Remove M '如果不是工作表，则移除
    
19.             ElseIf M.Type = 100 Then
    
20.                 M.CodeModule.DeleteLines 1, M.CodeModule.CountOfLines  '如果是工作表则删除
    
21.             End If
    
22.         Next
    
23.         
    
24.         .Close True
    
25.     End With
    
26. End Sub

复制代码