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