Excel.Application.Visibile不在Office 2016上工作

我需要有关规范用VisualBasic6.0编写的以下代码的帮助。

Private Sub cmdExcel_Click()
Dim obj As Object

Set obj = CreateObject("Excel.Application")

On Error Resume Next
   MkDir "c:\temp"
On Error GoTo 0

MousePointer = vbHourglass

On Error GoTo err

objGrid.m.ExportToXLS "c:\temp\test.xls"

obj.Workbooks.Open "c:\temp\test.xls"
obj.Visible = True
obj.Interactive = True


On Error GoTo 0

err:
  MousePointer = vbNormal

End Sub

环境 :Windows 10,Office Excel 2016。

问题 :工作簿没有显示,但我仍然可以在任务管理器中找到Excel实例。如果我关闭实例,我可以在 c:\temp 应用程序重新开始工作。

目标 :显示刚创建的Excel。

你有什么解决办法吗?

事先谢谢。
萨拉人