在 Excel VBA 中两次运行相同的代码时无法获取 OLEObjects 属性错误

Question

我在多个命令按钮上运行相同的代码行，这些按钮打开嵌入在父电子表格中的分配的 Excel 模板。

Private Sub M113_Click()
Dim WDObj As Object
Dim WDApp As Object
Dim str As String

str = ActiveWorkbook.Path & "\CND Scaled Template.xlsm"

Set WDObj = Sheets(2).OLEObjects("CNDS")
WDObj.Verb xlOpen

Dim i As Integer
i = Workbooks.Count

Workbooks(i).SaveCopyAs str
Workbooks(i).Close

Workbooks.Open (str)

Set WDObj = Nothing
Set WDApp = Nothing
End Sub

这是我收到错误消息“无法获取工作表类的 OLEObjects 属性”的行

Set WDObj = Sheets(2).OLEObjects("CNDS")

在打开 excel 后第一次运行它不会出现任何错误，但第二次运行它是有问题的。还通过调试模式进入 VBA 编辑器并按 F5 工作正常，整个代码执行良好。可能是什么问题？除了 excel 之外，Ole 对象也不会发生这种情况。

Answer 1

这是您修改后的代码：

Private Sub M113_Click()

    Dim WDObj As Object
    Dim WDApp As Object
    Dim str As String

    With ThisWorkbook
        str = .Path & "\CND Scaled Template.xlsm"
        Set WDObj = .Worksheets(2).OLEObjects("CNDS")
        WDObj.Verb xlOpen
    End With

    Dim i As Long
    i = Workbooks.Count
    Workbooks(i).SaveCopyAs str
    Workbooks(i).Close
    Workbooks.Open str

End Sub

正如@PEH 在 cmets 中提到的，很可能错误在于引用 ThisWorkbook 和 ActiveWorkbook。

我已经删除了Set WDObj = Nothing，因为它们是局部变量，并且在结束后无论如何都会被销毁。

Why Use Integer Instead of Long?