Question

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

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

n=25
REGEX="foo"
for x in {1..$n}
do
    if curl -L 'https://somedomain.com/?page='$x 2>/dev/null | grep -q "$REGEX"
    then
        echo "$x"
    fi
done

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选项中启用了“打破所有错误”。

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

1 个答案: