運行時錯誤1004：對象'表'的方法'選擇'失敗

Question

我不知道爲什麼這會造成運行時錯誤。它應該選擇工作簿1中的工作表將其複製到工作簿2中。任何人都可以幫助我嗎？ 調試顯示錯誤是在該行：「ActiveWorkbook.Sheets.Select」

Private Sub CommandButton1_Click() 
'On Error GoTo ErrorHandler 
If cef.path = "" Then 
    MsgBox ("PATH of pictures is required") 
Else 
    Dim WB1 As Workbook 
    Dim WB2 As Workbook 

    Dim num As Double 

    Set WB1 = ActiveWorkbook 
    ActiveWorkbook.Sheets("Item_number").Visible = True 
    ActiveWorkbook.Sheets("CODES").Visible = True 
    ActiveWorkbook.Sheets("Item_Number_Hydro").Visible = True 
    ActiveWorkbook.Sheets.Select 
    ActiveWindow.SelectedSheets.Copy 
    Set WB2 = ActiveWorkbook 
    Dim nombreHoja As String 

Answer 1

你必須有工作簿中的一些隱藏的工作表。你不能選擇隱藏的工作表，所以你不能選擇所有的表格。

You don't actually need to use Select。但是你可以複製所有片材而不選擇它們，包括隱藏的：

ActiveWorkbook.Sheets.copy 

或者複製特定片的陣列（無Select）：

ActiveWorkbook.Sheets(Array("Item_number","CODES","Item_Number_Hydro")).Copy