Question

我需要从工作簿A中复制4个工作表，其中包含5个工作表并创建一个新工作簿B并将复制的工作表粘贴到新工作簿中。

我已经完成了一张纸。我怎样才能改善这段代码：

Sub test()

    ThisWorkbook.Sheets.Copy

    'Saving the new workbook B
    ActiveWorkbook.SaveAs "C:\Users\John\B.xls", FileFormat:=18
End Sub

Answer 1

一个解决方案是创建新工作簿（B），然后浏览工作簿的工作表（A）仅复制所需的工作表。

Sub test()

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = Workbooks.Add
    For Each ws In ThisWorkbook.Worksheets
        If Not ws.name = "<name of worksheet you don't wanto to copy>" Then
            ws.Copy after:=wb.Worksheets(wb.Worksheets.Count)
        End If
    Next

End Sub

从工作簿A复制4个工作表，其中包含5个工作表

1 个答案: