复制并从一个工作簿粘贴到另一个
我有一个工作簿中的代码，这应该打开另一个工作簿，复制并粘贴到代码的工作簿。 我可以select数据，但不能粘贴。
我已经尝试了许多不同的代码获取错误的变体，或者它什么都不做。 一个例子在template.xls中运行，这是我要粘贴数据的地方：
Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls") With dlsheet.Sheets("Data") .range("A1:H3").Select.copy selection.copy End With 我不知道如何使用select，因为这将从模板中复制，我试图在select之前使用一个句号。
我可以从dlsheet复制整个工作表到一个新的工作簿，如果有人可以告诉我如何将其复制到模板，而不是一个新的工作簿，那么这也将做的伎俩。
dlsheet.Sheets("Data").Copy
Set dlsheet = appexcel.Workbooks.Open(strPath & "downloadedData.xls") dlsheet.Sheets("Data").range("A1:H3").copy ThisWorkbook.ActiveSheet.Paste Destination:=ThisWorkbook.ActiveSheet.Range( "A1:H3")
尝试这个
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