Question

如何制作此代码

For Each wb In wbC
        If InStr(wb.BuiltinDocumentProperties("keywords").value(), "MyApplicationSet") = 0 Then
            On Error Resume Next
        End If

        Call OverTimeSave(wb)
    Next

所以当当前工作簿不是系统的一部分时 - 它会跳过一个工作簿（不保存）并迭代到下一个工作簿？这段代码是否正确，因为我不确定On Error Resume Next是否会在这里完成工作，正如我读到的那样，它将转到下一个语句，这意味着它将调用特定工作簿上的save函数，这是不属于我的系统。

我想要它：如果有错误 - 什么也不做，并迭代到下一个工作簿。

Answer 1

最好只更改if条件以添加属于系统的每个工作簿

For Each wb In wbC
        If InStr(wb.BuiltinDocumentProperties("keywords").value(), "MyApplicationSet") <> 0 Then
            Call OverTimeSave(wb)
        End If
Next

On Error转到下一个所需操作而不是下一行

1 个答案: