使用Word VBA创建Excel工作表的副本

Question

对于一个已经打开的工作簿，我想创建一个工作表（“模板”）的副本，并使用数组中的值重新命名它。 当我调试代码时，在执行该行时就创建了副本，但仍然出现错误424：object required。

我已经尝试过On Error Resume Next，但是由于我已经在子菜单中使用On Error GoTo，因此无法读取。

Dim oXL As Excel.Application 'Requires loading "Microsoft Excel 16.0 Object Library" from Tools -> References
Dim oWB As Excel.Workbook

Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open(FileName:=WorkbookToWorkOn) 'Opens Excel
oXL.Visible = True 'Shows Excel window while running code. Set to false after finished editing.

Dim ws As Worksheet
For i = LBound(seller_names) To UBound(seller_names)
    'On Error Resume Next 'Doesn't work
    Set ws = oXL.ActiveWorkbook.Sheets("Template").Copy(After:= _
             oXL.ActiveWorkbook.Sheets(oXL.ActiveWorkbook.Sheets.Count))
    ws.name = seller_names(i)
Next i

Answer 1

Sheets.Copy不会返回对已复制图纸的引用，因此您需要先复制该图纸，然后再获取对其的引用：

With oXL.ActiveWorkbook
    .Sheets("Template").Copy After:= .Sheets(.Sheets.Count)
    Set ws = .Sheets(.Sheets.Count)) '<< get the copy
    ws.name = seller_names(i)
End With

On Error Resume Next ，除非您在VBA选项中启用了“打破所有错误”，否则On Error Resume Next应该始终可以工作-但并非总是一个好的解决方案。