运行时错误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