求助：以前能用的代码现在突然不能用了
以前一直使用的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
错误就在上一行代码出现。
请高手指点，谢谢
没得到excel对象 监视下excelapp有没有获得对象，excelapp有没有activeworkbook/activesheet等对象。
页:
[1]