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

Question

我正试图创建一个vba来复制现有模板excel的第24到28行；样品CPS-Direct.xlsx"；并将其粘贴到我正在处理的任何当前工作表中。

下面是代码，它目前只能粘贴在名为"的excel文件上；01添加产品1.xlsx"，我如何更改它以允许下面的代码将其粘贴到我正在处理的任何当前工作表上？谢谢

Sub FinalPricingDirectEnrollment()
'
' FinalPricingDirectEnrollment Macro
' FinalPricingDirectEnrollment
'
' Keyboard Shortcut: Ctrl+a
'
Windows("Sample CPS - Direct.xlsx").Activate
Range("A2:M2").Select
Windows("01 Add Products1.xlsx").Activate
Range("A2:M2").Select
ActiveCell.FormulaR1C1 = _
"Microsoft Volume Licensing - Customer Price Sheet - Final Pricing"
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "10/31/2020"
Range("H7:I7").Select
ActiveCell.FormulaR1C1 = "BDSG DH"
Range("H8:I8").Select
Workbooks("Sample CPS - Direct.xlsx").Rows("24:28").Copy _
ActiveSheet.Range("A24")

End Sub

Answer 1

复制范围

范围。复制

你可以这样做：

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