从一个工作簿复制并粘贴到另一个工作簿

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