如何删除当前工作簿所在文件夹下的其它工作簿中的工作簿模块代码而不触发事件？

作者：绿色风分类：时间：2022-08-18 浏览：122

楼主水星钓鱼	Q：如何删除当前工作簿所在文件夹下的其它工作簿中的工作簿模块代码而不触发事件？ A：由于要被清除的Excel工作簿中的ThisWorkbook中含有Workbook_Open等事件，需要用Application.EnableEvents = False 限制用程序打开代码时触发事件的发生。所以代码如下： Sub xyf() Dim sFileName As String Dim oWk As Workbook sFileName = Dir(ThisWorkbook.Path & "\.xls") Do While sFileName <> "" If sFileName <> ThisWorkbook.Name Then Application.EnableEvents = False Application.DisplayAlerts = False Set oWk = Workbooks.Open(ThisWorkbook.Path & "\" & sFileName) With oWk.VBProject.VBComponents(oWk.CodeName).CodeModule .DeleteLines 1, .CountOfLines oWk.Close True End With Application.EnableEvents = True Application.DisplayAlerts = True End If sFileName = Dir Loop End Sub 附件如下：代码在“工作簿1.xlsm”中批量删除工作簿代码.rar
2楼松儿	先来谢谢，再下载学习
3楼 xyf2210	学习个

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表