新的Excel.Application Wokbooks.Add

时间:2019-06-21 12:04:45

标签: excel vba

我正在尝试更新由他人编写的代码,甚至无法使其在笔记本电脑上正常工作。问题是线条

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

2 个答案:

答案 0 :(得分:3)

尝试

oExcel.Visible = True

我认为默认情况下不可见新实例。
(但是您可以在任务管理器中看到该过程)

答案 1 :(得分:1)

oExcel.Visible=True

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