将单元格从一个工作簿复制到另一个工作簿的宏

Question

我正在寻找一个宏，它将特定范围的单元格从一个工作簿复制到一个新工作簿。宏将从A1:HC5复制单元格"Workbook1"，并粘贴到(A1:HC5)的相同单元格"Workbook2"中。 谢谢你的指导！

Answer 1

这应该有效：

Sub test()
   Dim wbk As Workbook

   strFirstFile = "C:\source.xls"
   strSecondFile = "C:\destination.xls"

      Range("A1:HC35").Copy

   Set wbk = Workbooks.Open(strSecondFile)
   With wbk.Sheets("Sheet1")
      Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
   End With 
End Sub