使用宏將數據從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）將數據粘貼到表NO1上A1:H6范圍的工作簿Book1中

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 ）大得多。