从工作簿复制并将其粘贴到任何工作表

Question

我正在尝试创建一个vba，以复制现有模板excel“ Sample CPS-Direct.xlsx”的第24至28行并将其粘贴到我正在工作的任何当前工作表中。

下面是代码，它当前仅能粘贴到名为“ 01 Add Products1.xlsx”的excel文件中，如何更改它以允许以下代码将其粘贴到我正在处理的任何当前工作表上？谢谢！

Error: Profile gifted does not exist 

Answer 1

复制范围

Range.Copy

您可以这样做：

Option Explicit

Sub finalpricingNOtenantsDirectEnrollment()
    Dim ws As Worksheet
    Set ws = Workbooks("Sample CPS - Direct.xlsx").Worksheets("Cover Page")
    ws.Rows("24:28").Copy ActiveSheet.Rows(24)
    ' or:
    'ws.Rows("24:28").Copy ActiveSheet.Range("A24")
    ' Which is short for :
    'ws.Rows("24:28").Copy Destination:=ActiveSheet.Range("A24")
End Sub