Excel.Application.Visibile не работает в Office 2016

Question

Мне нужна помощь в отношении следующего кода, написанного на Visual Basic 6.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 в диспетчере задач. Если я закрою экземпляр, я найду Excel в c:\temp, и приложение снова начнет работать.

Цель : показать только что созданный Excel.

У вас есть какие-нибудь решения?

Заранее спасибо.
Sara

Answer 1

Я нашел решение.
Проблема была не в коде, а в некоторых настройках Excel.

Сначала я изменил код, чтобы получить более подробную ошибку. В основном я переключил две инструкции, которые позволяют Excel App быть видимым и открыть файл:

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

Таким образом, я смог открыть приложение Excel и прочитать причину, по которой файл не может быть открыт.

Как видите, тип файла Excel 4 Worksheets, который блокируется при открытии.

Я должен был пойти Trust Center и отключить его. Просто чтобы быть уверенным, я отключил также Excel 4 Workbook.

После выполнения описанных выше шагов мое приложение заработало.