Private Sub CommandButton2_Click()
For Z = 2 To Sheet2.[b65536].End(3).Row

Next
Application.ScreenUpdating = False
Dim j As Integer
Dim souce As Worksheet
Dim target As Workbook
 Set souce = ThisWorkbook.Worksheets("正式表")

          Set target = Workbooks.Open(ThisWorkbook.Path & "\憑證.xls")
          target.Sheets(
 
1).Rows.Delete

           souce.Range(souce.Cells(1, 1), souce.Cells(Z - 1, 38)).Copy target.Sheets(1).Range(target.Sheets(1).Cells(1, 1), target.Sheets(1).Cells(Z - 1, 38))


           Application.ScreenUpdating = True
         ActiveWorkbook.Save
  ActiveWorkbook.Close

End Sub

把一個工作簿中的表的數據傳遞到另一個工作簿中。

VBA 把一個工作簿中的表的數據傳遞到另一個工作簿中