複製或移動一組包含表格的工作表

我需要在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

由於錯誤狀態，我在牀單一些表。有沒有辦法克服這個錯誤？

來源

2014-11-14 Selrac

轉換的表爲範圍第一：我如下已經解決了這個問題？ – pnuts 2014-11-14 20:14:55

單獨複印紙張？剛做了一個'Sheets（「Sheet1」），複製完後：= Sheets（1）'在一張帶有樣本表和樣本圖的工作表上，它本身就很好。 – Chrismas007 2014-11-14 20:18:43

也不需要「選擇」。如果你使用'Select'，那麼你可以在技術上使用'Selection.Copy'。 – Chrismas007 2014-11-14 20:20:03

感謝您的意見。

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

希望它可以幫助別人

感謝

來源

2014-11-17 13:10:37 Selrac

複製或移動一組包含表格的工作表

回答

相關問題