Question

今天早上我的代码部分出现问题以前工作正常。现在我得到（似乎随机）3个不同的错误消息之一与我引用的OLEObject。最常见的消息是：

对象库无效或包含对onject定义的引用无法找到

编辑：当重新打开工作簿后进入代码时，我收到以下消息：

运行时错误＆＃39; 1004＆＃39;：激活OLEObject类的方法失败

删除.ActivateLine，我得到：

运行时错误＆＃39; 1004＆＃39;：无法获取OLEObject类的名称属性

debuger在子线上停止，但是应该说有时候这段代码运行正常，有时它会为名称抛出一个错误，我会结束，重新启动它会再次循环，点击相同的错误，我们重复，直到删除所有对象。

我目前正在尝试复制代码中发生的两条消息，以便将它们添加到帖子中。从内存来看，它们与OLECont的名称属性有关 - 但这应该不是问题。

我的代码如下：

Sub ClearGenerate()
Dim rngToClear As Range
Dim OLECont As OLEObject

'Clean down worksheet
Set rngToClear = Worksheets("Generate").Range("b17:F17")
rngToClear.Clear
Set rngToClear = Worksheets("Generate").Range("b24:F150")
rngToClear.Clear

'Clear out modules and buttons

For Each OLECont In Worksheets("Generate").OLEObjects
    OLECont.Activate
    ClearModule OLECont.Name
    OLECont.Delete
Next

End Sub

我在回复这篇文章时添加了OleCont.Activate，但无济于事：

I found an Excel configuration error: Unable to get the Object property of the OLEObject class

间歇性OLEObject Name属性错误

0 个答案: