Excel VBA如何在工作簿中没有的情况下跳过工作表

Question

好吧，这是我要编写的代码。 我的问题与以下内容有关。 如果我要选择的工作表不在工作簿中，该怎么办？ 我只想跳过，然后继续前进而不出错。

 If k = 1 Then
    Sheets(Key).Select
    IF
    End If

Start of full code

    Set xlWorkbook = Workbooks.Open(FILEPATH)
    Y = xlWorkbook.Name
    Set xlWorkbook = Workbooks.Open(Import)
    xy = xlWorkbook.Name


    Workbooks(Y).Activate
    Sheets("Sheet1").Select


    ActiveSheet.Range("$A$1:$K$490").AutoFilter Field:=3, Criteria1:="1"
    CP = Worksheets("Sheet1").Cells(Rows.count, "B").End(xlUp).Row - 1

    For COUNTER = 1 To CP
    COMBO = ActiveSheet.Range("A" & rowC).Value
    k = ActiveSheet.Range("K" & rowC).Value
    KEY1 = ActiveSheet.Range("B" & rowC).Value

    If k > 1 Then
    rowC = rowC + 1
    KEY2 = ActiveSheet.Range("B" & rowC).Value
    End If

    Workbooks(xy).Activate


    If k = 1 Then
    Sheets(Key).Select
    IF
    End If



    rowC = rowC + 1
    Next

Answer 1

选择不存在的工作表时，Excell将引发异常您可以通过使用On Error处理此异常

On Error Goto label

要么

On Error Resume next