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

我需要在Excel中复制一组工作表，并将其过滤到另一个Excel文件中。 我有VBA代码如下：

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

但是当我运行这个macros时，我得到一个错误信息：

 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 

希望它可以帮助别人

谢谢