0

OKブローは、私がこの時点で持っているコードです。私が抱えている問題は、以下の場合に関連しています。選択しようとしているシートがワークブックにない場合はどうすればよいですか? 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
4

1 に答える 1

0

存在しないシートを選択すると、Excell は例外をスローします。On Error

On Error Goto label

また

On Error Resume next
于 2013-10-17T15:11:40.277 に答える