Question

我有一个代码可以过滤数据并复制到新的工作表中。我有一个问题，如果正在创建的工作表已经存在，那么它将跳至错误处理，并且不再继续“ next”。如果我在错误处理后将“下一步”移动，则只有存在错误时才会循环。有办法我可以两者兼得吗？

<div class="publishedYear">
<label>Publish Year: </label>
<input type="number" id="PublishedYear" name="PublishedYear" required min="10" max="20" 
[(ngModel)]="hero.PublishedYear" #publishedYear="ngModel">
<p class="alert alert-danger invalid" *ngIf="publishedYear.errors">Invalid Published Year</p>
</div>

Answer 1

我使用了一种方法，您可以简单地尝试使用工作表，并在引发错误时让错误控制来创建工作表。

在这种情况下，如果存在 abc 工作表，则使用它。如果不存在，则将其创建并使用。

sub testws()

    dim wsn as string

    wsn = "abc"

    on error goto make_ws
    with worksheets(wsn)
        on error goto 0
        ...
    end with

    exit sub

make_ws:
    with worksheets.add
        .name = wsn
    end with
    resume

end sub

如果存在错误“ On Error”结束VBA，则出现“ Next”问题

1 个答案: