如果 Excel 工作簿有许多工作表,其中一些工作表内部有宏,我发现确定哪些工作表有宏的唯一方法是在项目资源管理器(VBA中的Ctrl+ )中单击每个工作表。R
有没有其他方法可以做到这一点?
我最近在 MSDN 上回答了一个问题,并最终在上面写了一篇博文。
主题:检查 Excel 文件是否有宏
链接:http ://www.siddharthout.com/2012/04/12/check-if-an-excel-file-has-a-macro/
然后,您可以使用.VBComponents.Item(i).Name
with.VBComponents.Item(i).Type
检查哪些“表格”具有“宏”。
编辑
从技术上讲,每个宏都是一段代码,但不一定每段代码都是一个宏。因此,如果您只是检查宏,请查看博文的第一部分,如果您要检查任何代码,请查看博文的第二部分。
您可以遍历工作表并使用以下语法:
If ActiveWorkbook.VBProject.VBComponents(sheetName).CodeModule.CountOfLines <> 0 Then
sheetName
是工作表的名称。
如需更高级的使用,您应该查看此页面,其中提供了更高级的示例。