vba 实现宏自杀

来源:互联网 发布:淘宝二建课程视频教程 编辑:程序博客网 时间:2024/06/07 06:50

sub kill()'宏的自杀'ActiveWorkbook.Activate For i = 1 ToActiveWorkbook.VBProject.VBComponents.Count    ActiveWorkbook.VBProject.VBComponents(i).CodeModule.DeleteLines 1, _   ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines   Nextend sub


原创粉丝点击