Скопируйте и вставьте из одной книги в другую

Question

У меня есть код в одной книге, это должно открыть другую книгу, скопировать и вставить в книгу с кодом. Я могу выбрать данные, но не могу вставить их.

Я пробовал много разных вариантов кода, получая ошибки, или ничего не делает. Пример работы в template.xls, где я хочу, чтобы вставить данные:

Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls") 

With dlsheet.Sheets("Data") 

    .range("A1:H3").Select.copy 
    selection.copy 

End With 

Я не знаю, как использовать выбор, так как это будет скопировать из шаблона, я попытался с помощью полной остановки перед тем выбор.

Я могу скопировать весь лист из dlsheet в новую книгу, если кто-то может сказать мне, как скопировать его в шаблон, а не новую книгу, тогда это тоже поможет.

dlsheet.Sheets("Data").Copy 

Answer 1

Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls") 
dlsheet.Sheets("Data").range("A1:H3").copy 

ThisWorkbook.ActiveSheet.Paste Destination:=ThisWorkbook.ActiveSheet.Range("A1:H3") 

Answer 2

Попробуйте

Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls") 

With dlsheet 
    .Sheets("Data").Range("A1:H3").Copy 

    .Sheets("Data").Range("A1").PasteSpecial Paste:=xlPasteValues, _ 
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End With