求助：以前能用的代码现在突然不能用了

cnyzsam

以前一直使用的VBA代码都没问题，现在不能用了，出现：
运行错误 91：
对象变量或With块变量未设置

不知道怎么回事。
代码如下：
Public Sub CreateFlag()
    Dim excelApp As Excel.Application
    Dim excelSheet As Excel.Worksheet

    On Error Resume Next
    Set excelApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    Set excelSheet = excelApp.ActiveWorkbook.ActiveSheet

错误就在上一行代码出现。

请高手指点，谢谢

zzyong00

没得到excel对象

mikewolf2k

监视下excelapp有没有获得对象，excelapp有没有activeworkbook/activesheet等对象。