删°£©Ò¦³¥N码

wqfzqgk

Sub 删°£()
Dim wbk As Workbook
Dim vbp As VBComponent
Set wbk = ActiveWorkbook
For Each vbp In wbk.VBProject.VBComponents
If vbp.Type = vbext_ct_Document Then
vbp.CodeModule.DeleteLines 1, vbp.CodeModule.CountOfLines
Else
wbk.VBProject.VBComponents.Remove vbc
End If
Next

Hsieh

¦^´_ 1# wqfzqgk
³]©w¤Þ¥Î¶µ¥ØMicrosoft Visual Basic for Application Extensibility 5.0

¤U¸ü (18.1 KB)

2010-8-23 10:02

¤u¨ã/¥¨¶°/¦w¥þ©Ê
¤Ä¿ï«H¥ô¦s¨úVisual Basic ±M®×

¤U¸ü (13.25 KB)

2010-8-23 10:00

1. Sub §R°£()
   
2. Dim wbk As Workbook
   
3. Dim vbp As VBComponent
   
4. Set wbk = ActiveWorkbook
   
5. For Each vbp In wbk.VBProject.VBComponents
   
6. If vbp.Type = vbext_ct_Document Then
   
7. vbp.CodeModule.DeleteLines 1, vbp.CodeModule.CountOfLines
   
8. Else
   
9. wbk.VBProject.VBComponents.Remove vbp
   
10. End If
    
11. Next
    
12. End Sub

½Æ»s¥N½X

apolloooo

³o¼Ë¤]¥i¥H§ä±o¨ì³á¡I¤p§Ì¨ØªA¡C