vba - 复制或移动包含表格的一组工作表

Question

我需要复制 Excel 中的一组工作表并将它们粘贴到另一个 Excel 文件中。我的VBA代码如下:

Sheets(Array("COVER", "A", "B", "C")).Select
Sheets(Array("COVER", "A", "B", "C")).Copy

但是当我运行宏时收到错误消息:

vba you cannot copy or move a group of sheets that contain a table

正如错误所述，我在工作表中有一些表格。有办法克服这个错误吗？

Answer 1

感谢您的评论。我已经解决这个问题如下:

Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("COVER").Copy After:=wb.Sheets(1)
ThisWorkbook.Sheets("A").Copy After:=wb.Sheets(2)
ThisWorkbook.Sheets("B").Copy After:=wb.Sheets(3)
ThisWorkbook.Sheets("C").Copy After:=wb.Sheets(4)
Set wb = Nothing

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
'Sheets("Sheet3").Activate
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

希望对其他人有帮助

谢谢