以前一直使用的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
错误就在上一行代码出现。
请高手指点，谢谢
置顶卡
