如何将多个工作表从一个工作簿复制到另一个工作簿；无需复制 VBA

Question

我正在尝试将所有工作表（7 张）从 workbook1(wb1) 复制到 wb2。 wb1 包含命令按钮，但我不希望它们出现在我的新工作簿中。我正在使用循环将单个工作表从一个工作簿复制到另一个工作簿。但是复制到第二张纸时出现错误。我正在使用如下代码：-

 Public Sub CommandButton1_Click()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim i As Integer
    i = 1
    Set wb1 = ActiveWorkbook
    Set ws1 = ActiveSheet
    Set wb2 = Workbooks.Add
    With wb2
    .Title = "My Sales"
    .Subject = "Sales"
    .SaveAs Filename:="mysales.xls"
    End With
    For i = 1 To 7
    Dim row As Long
    Dim column As Long
    wb1.Activate
    wb1.Sheets(i).Activate
      column = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).column
      row = ActiveSheet.Range("A" & Rows.Count).End(xlUp).row
     Application.CutCopyMode = False
    ActiveSheet.Range(Cells(1, 1), Cells(row, column)).Select
     Selection.Copy
      wb2.Sheets(i).Range("A1").PasteSpecial
     Application.CutCopyMode = False
    next i
End Sub

循环第一次成功运行，但对于 i=2，代码出错

Answer 1

Sub M_snb()
  thisworkbook.sheets(array("one","two","three","four","five","six","seven")).copy

  do until activeworkbook.sheets("one").oleobjects.count=0
   activeworkbook.sheets("one").oleobjects(1).delete
  loop
  activeworkbook.saveas "G:\OF\new.xlsx",51
End Sub