运行时错误1004：对象'表'的方法'select'失败

我不知道为什么这是一个运行时错误。 它应该select工作簿1中的工作表复制到工作簿2中。任何人都可以帮助我吗？ debugging显示错误是在行：“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

工作簿中必须有一些隐藏的工作表。 你不能select隐藏的工作表，所以你不能Activeworkbook.Sheets.Select试图select所有的工作表。

你并不需要使用Select 。 但是，您可以复制所有表单而不select它们，包括隐藏的表单：

 ActiveWorkbook.Sheets.copy 

或者，复制特定工作表（不含Select ）的数组：

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