Новый Excel.Application Wokbooks.Add

Question

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

Set oExcel = New Excel.Application
oExcel.Workbooks.Add

не создавать новую книгу буквально ничего не происходит , однако автономные Workbooks.Add обычно создают новую книгу. окно просмотра показывает, что oExcel имеет значение «Microsoft Excel»

---

Часы: +: oExcel: «Microsoft Excel»: Объект / Приложение: EXCEL_MANAGER.CopyItOver3

---

Что я делаю не так? Моя соответствующая часть кода ниже.

Public Sub CopyItOver3()
On Error GoTo errorHandler
Dim oExcel As Object
Dim oExSheet As ObjectDim wbFolder As String
wbFolder = ThisWorkbook.Worksheets("OUTPUT").Cells(1, 1).Value & "\"
Set oExcel = New Excel.Application
oExcel.Workbooks.Add
Set oExSheet = oExcel.Worksheets("Sheet1")
weiter:

  Workbooks(ThisWorkbook.name).Worksheets("OUTPUT").Range("A12:JG7000").Copy

  With oExSheet
  .Range("A1").PasteSpecial (-4163)
End With 
End Sub

Answer 1

Попробуйте

oExcel.Visible = True

Я думаю, что новый экземпляр не виден по умолчанию.
(Но вы можете увидеть процесс в диспетчере задач)

Answer 2

oExcel.Visible=True

Приложение создается, но работает в фоновом режиме.