Question

好的打击是我到目前为止的代码。我的问题与下面的问题有关。如果我试图选择的工作表不在工作簿中，我该怎么办？我想跳过if并继续前进而不是错误。

 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

Excel VBA如果不在工作簿中，则如何跳过工作表

1 个答案: