返回列表 上一主題 發帖

删除所有代码

删除所有代码

本帖最後由 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
学习

回復 1# wqfzqgk
設定引用項目Microsoft Visual Basic for Application Extensibility 5.0
未命名.PNG
2010-8-23 10:02

工具/巨集/安全性
勾選信任存取Visual Basic 專案
未命名.PNG
2010-8-23 10:00
  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
複製代碼
學海無涯_不恥下問

TOP

這樣也可以找得到喔!小弟佩服。
借錢不還,才是王道

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題