0

我怎样才能制作这个代码

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会在这里完成工作,正如我所读的,它只会转到下一条语句,这意味着它将调用特定工作簿上的保存函数,这不是我系统的一部分.

我希望它像:如果有错误 - 什么都不做并迭代到下一个工作簿。

4

1 回答 1

1

最好简单地更改 if 条件以添加作为系统一部分的每个工作簿

For Each wb In wbC
        If InStr(wb.BuiltinDocumentProperties("keywords").value(), "MyApplicationSet") <> 0 Then
            Call OverTimeSave(wb)
        End If
Next
于 2013-08-16T09:38:24.007 回答