新Excel.Application Wokbooks.Add

Question

我试图更新代码，由另一个人编写，甚至没有设法使它在我的笔记本上工作。问题是线

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

不要创建任何新的工作簿--从字面上看，不会发生任何事情，但是独立的Workbooks.Add通常是在创建新的工作簿。“监视”窗口显示oExcel具有"Microsoft Excel“值。

监视：+：oExcel："Microsoft“：Object/Application : 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

正在创建应用程序，但它正在后台运行。