我创建了一个带有代码的加载项,可以在工作簿之间移动数据,对数据进行排序,删除重复项并保存工作簿。所有这一切都很好。然后我添加了一行代码(这是行:Range("C" & Rows.Count).End(xlUp).Offset(1).Select
),我从另一个(不相关的)加载项复制。插入此代码后,当我关闭工作簿时,我收到了运行时错误,调试器指向来自不同加载项中的子代码的一行代码。新加载项中没有任何内容连接到显示错误的加载项。以下是调试器显示的代码:
Sub Delete_Master_Menu()
'
On Error Resume Next
Application.CommandBars(Menuname).Delete
On Error GoTo 0
End Sub
错误出现在这一行:Application.CommandBars(Menuname).Delete
如标签所示,我现在正在使用Excel 2013。不确定这是否有所作为。我们刚刚从2007年升级。
就像我说的那样,这段代码一直有效,直到我添加了上面指出的行。删除该行后,我仍然会收到错误消息。这是在收到错误之前发生的唯一变化。
编辑:当我尝试不同的步骤时,我发现即使我尝试关闭空白工作簿(或任何其他工作簿),也会发生这种情况。
更新:我禁用了导致错误的加载项,错误消失了。但是,我需要使用该加载项来处理每小时报告,因此我需要了解为什么会发生这种情况如何纠正。