Question

我的代码遍历表格中的单元格值，并查看是否存在具有相同名称的文档。如果它确实存在，它将执行一个操作来打开这些文件并导入数据。

If bProcess Then
    FileCounter = 0
    For Each folderIDX In PrimaryMergeFiles
        'If folderIDX.Name = Worksheets("Table").Range("A1:A13") Then
        Dim vTest As Variant
        vTest = Application.WorksheetFunction.VLookup(folderIDX.Name, Worksheets("Table").Range("A1:B13"), 2, False)

        'Creating Merge File
        If Not IsError(vTest) Then
            FileCounter = FileCounter + 1

            strStatus = "Creating file " & FileCounter & " of " & PrimaryMergeFiles.Count & ": " & folderIDX.Name
            Application.StatusBar = strStatus
            CreateMergedFile wdApp, sPrimaryMergeDirectory, folderIDX.Name, sSourceFile, ClientCount, _
                sClientSubDirectory, bClearHighlightings(ClientCount), bHome
            'ElseIf IsError(vTest) Then
        Else
            End Sub
        End If  
    Next
End If

当vTest出错时，如何跳过文件或结束循环/子？

Answer 1

您应该使用：

Else
    Exit Sub '<-- Exit! :)
End If

而不是：

Else
    End Sub '<-- Instead of End :3
End If

希望这有帮助！

编辑：回答您的评论

Dim vTest As Variant

On Error Resume Next '<-- Add these since you are catching the error immediately after
vTest = Application.WorksheetFunction.VLookup(folderIDX.Name, Worksheets("Table").Range("A1:B13"), 2, False)
On Error Goto 0      '<-- You will handle your error on the next line

If Not IsError(vTest) Then '...

'You may also want to use/use instead: If Err.Number <> 0 Then ...

以下是有关VBA中错误处理的更多信息：http://www.cpearson.com/excel/errorhandling.htm

Excel VBA - 跳过子或结束子IF语句

1 个答案: