使用宏将数据从Excel工作表复制到另一个工作表

Question

I have a sheet Rolling Plan in copy.xls worksheet.I want to copy it to Book1.xls worksheet in Sheet NO1 in Range A1:H6

The macro in 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

End Sub

Answer 1

This does the following:

1) Open copy.xls and copy data in range B6:H6

2) Pastes the data into workbook Book1 in range A1:H6 on sheet 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

Note that I am not quite sure why the data range you are copying to (ie A1:H6 ) is much larger than the actual copied range (ie B6:H6 ).