将带索引的工作表复制到新工作簿

【问题标题】：Copy the sheet with index to a new Workbook将带索引的工作表复制到新工作簿
【发布时间】：2017-05-05 03:43:38
【问题描述】：

我使用此代码将工作表 (i) 复制到新工作簿，但它总是在 ActiveWorkbook.Sheets(i).Copy 处出错。如果我使用特定的工作表（如sheets("Handover")）代码运行。请帮我解释一下出了什么问题

Sub CopyToNew()
    'Copy the sheets(i) to a new Workbook.
    For i = 3 To ActiveWorkbook.Sheets.Count
        ActiveWorkbook.Sheets(i).Copy
        Next
    End Sub

【问题讨论】：

标签： excel indexing copy vba

【解决方案1】：

假设您有 3 个或更多工作表，发生的情况是当您第一次执行 ActiveWorkbook.Sheets(i).Copy 时，新创建的工作簿变为 ActiveWorkbook，只有一个工作表。

为避免这种异常情况，请将您的代码中的 ActiveWorkbook 替换为 ThisWorkbook。

另外，检查工作簿中是否有隐藏工作表，方法Copy 在隐藏工作表上失败。

【讨论】：

@Luunguyen 检查您的工作簿中是否有隐藏的工作表。