Question

我不知道为什么会出现运行时错误。它应该选择工作簿1中的工作表将它们复制到工作簿2.任何人都可以帮助我吗？调试显示错误在行中：＆＃34; ActiveWorkbook.Sheets.Select＆＃34;

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

您必须在工作簿中包含一些隐藏工作表。您无法选择隐藏的工作表，因此您无法Activeworkbook.Sheets.Select尝试选择所有工作表。

You don't actually need to use Select。但是你可以复制所有工作表而不选择它们，包括隐藏的工作表：

ActiveWorkbook.Sheets.copy

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

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

运行时错误1004：方法＆＃39;选择＆＃39;对象＆＃39;表格＆＃39;失败

1 个答案: