我正在尝试更新由另一个人编写的代码,甚至无法使其在我的笔记本电脑上运行。问题是线条
Set oExcel = New Excel.Application
oExcel.Workbooks.Add
不要创建任何新工作簿 几乎什么都没发生 ,但是独立的 Workbooks.Add 通常会创建新的工作簿。
监 window 口显示 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
最佳答案
尝试
oExcel.Visible = True
我认为默认情况下新实例不可见。
(但可以在任务管理器中看到进程)
关于excel - 新建 Excel.Application 工作簿。添加,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/56703124/