エクセル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