Excel vba selection.copy 从隐藏的工作簿应用程序不起作用

Question

我有一个包含宏的主工作簿和一个包含如下打开的数据的隐藏工作簿：

Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = False
ExcelApp.ScreenUpdating =  False
ExcelApp.DisplayAlerts = False
ExcelApp.EnableEvents = False
Dim creditsWorkbook As Workbook
Set creditsWorkbook = ExcelApp.Application.Workbooks.Open("P:\2017\" & DATA & ".xlsx")

稍后在代码中，我在该数据工作簿中选择一个范围并将其复制，然后将其粘贴到主工作簿中：

creditsWorkbook.Worksheets("List1").Range(creditsWorkbook.Worksheets("List1").Cells(5, 1), creditsWorkbook.Worksheets("List1").Cells(lastStr3, lastStb3)).Select
creditsWorkbook.Worksheets("List1").Activate
'creditsWorkbook.Worksheets("List1").Selection.Copy   '<--- error
Selection.Copy  <--- works, but copies from the Main workbook wrong stuff
Windows("Main.xlsm").Activate
Sheets("Credit portfolio").Select
Range("a4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

lastStr3 和lastStb3 只是包含要从creditsWorkbook 中选择的行数和列数的整数。选择工作正常（打开可见性时我可以看到它），但复制方法变得混乱。

我先尝试激活creditWorkbook，然后尝试像creditsWorkbook.Worksheets("List1").Selection.Copy 那样指定要复制的内容，但它只会给出错误object doesn't support this property or method。我不确定我应该怎么做才能获得所需的结果。

感谢任何帮助。

Answer 1

尽可能避免使用Select。

With creditsWorkbook.Worksheets("List1")
    .Range(.Cells(5, 1), .Cells(lastStr3, lastStb3)).Copy
End With
Windows("Main.xlsm").Sheets("Credit portfolio").Range("A4").PasteSpecial_ 
    Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False