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

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

2 个答案: