使用宏将数据从excel表复制到另一个

Question

我在 copy.xls 工作表中有一个工作表滚动计划。我想将它复制到范围 A1:H6 中工作表 NO1 中的 Book1.xls 工作表

Book.xls 中的宏

  Sub CopytoPS()
   Dim sfil As String
   Dim owbk As Workbook
   Dim sPath As String

   sPath = "C:\Users\Nirmala\Desktop\website" 'Change the file path for your purposes
   sfil = Dir(sPath & "copy.xls")

   Range("B6:H6").Copy
   Set owbk = Workbooks.Open(sPath & sfil)
   owbk.Sheets("RollinPlan").Range("B6:H6").End(xlUp).Offset(1, 0).
   PasteSpecial  xlPasteValues
    owbk.Close True 'Save opened workbook and close
    sfil = Dir

结束子

Answer 1

执行以下操作：

1) 打开copy.xls，复制B6:H6范围内的数据

2) 将数据粘贴到工作簿Book1 的工作表A1:H6 上的工作表NO1 中

Sub CopyData()
    Dim filePath As String, wb As Workbook

    filePath = "C:\Users\Nirmala\Desktop\website" 'Change the file path for your purposes
    Set wb = Workbooks.Open(Filename:=filePath & "\" & "copy.xls")

    wb.Worksheets("Rolling Plan").Range("B6:H6").Copy Destination:=ThisWorkbook.Worksheets("NO1").Range("A1:H6")
    wb.Close
End Sub

请注意，我不太清楚为什么您要复制到的数据范围（即A1:H6）远大于实际复制的范围（即B6:H6）。