excel 运行时错误91

发布网友发布时间：2022-05-04 01:17

共1个回答

热心网友时间：2022-06-20 07:33

模块个数不是你这样统计的。

Sub aa()
n = ActiveWorkbook.VBProject.VBComponents.Count
For i = 1 To n
If ActiveWorkbook.VBProject.VBComponents.Item(i).Type = 1 Then s = s + 1
Next
MsgBox "模块个数： " & s
End Sub

这样OK。

追问

你好，这个问题解决了，但是表格启用编辑后一片空白，关不掉，非得结束进程才能关掉。





声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com