vba - 下标超出范围 - 将工作表复制到新工作簿 Excel

Question

我正在尝试非常简单的过程，将一个工作表复制到新工作簿，如以下代码所示:

Private Sub btn_Documents_Click()
    Dim LastRow As Integer
    Dim printrange As Range
    Dim NewWorkbook As Workbook

    Set NewWorkbook = Workbooks.Add
    With NewWorkbook

    .Title = "Document Register"
    .SaveAs Filename:="some file path" & " Program documents status.xlsx"
End With
Workbooks("COFFIE Project Tracker V2.0.0.0").worksheets("Document Register").Copy Before:=NewWorkbook.Sheets("Sheet1")

Unload Me
frm_Control.Show

End Sub

这个确切的代码以前对我有用，但是，这次它在代码的复制行上抛出下标超出范围错误。我已经仔细检查了文件名、要复制的工作表的名称，一切都是正确的，所以我现在不知道为什么会抛出此错误。

Answer 1

为什么不简单地将工作表直接复制到新工作簿(无需手动创建目标工作簿)？

Workbooks("COFFIE Project Tracker V2.0.0.0").worksheets("Document Register").Copy
with activeworkbook
     .Title = "Document Register"
     .SaveAs Filename:="some file path" & " Program documents statusx", FileFormat:=xlOpenXMLWorkbook
end with

请注意，我使用 .SaveAs 的 FileFormat 参数并丢弃文件名中的文件扩展名。

如果您需要将 NewWorkbook 工作簿对象用于所显示内容之外的其他内容，则可以很容易地将其设置为您在复制到新工作簿上创建的事件工作簿 -即时。