標題: 删除所有代码 [打印本頁]

---

作者: wqfzqgk    時間: 2010-8-23 09:18     標題: 删除所有代码

本帖最後由 wqfzqgk 於 2010-8-23 09:19 編輯

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    時間: 2010-8-23 10:03

回復 1# wqfzqgk
設定引用項目Microsoft Visual Basic for Application Extensibility 5.0
[attach]2529[/attach]
工具/巨集/安全性
勾選信任存取Visual Basic 專案
[attach]2528[/attach]

1. Sub 刪除()
   
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

複製代碼

---

作者: apolloooo    時間: 2011-1-16 01:20

這樣也可以找得到喔！小弟佩服。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)