如果当前循环中不存在文件，则继续下一个循环

Question

我在每个循环中打开一个文件，如果文件不存在，我必须跳过该循环并移至下一个，但不知何故我的代码不起作用。

For i = 1 To lngLstRowTemp    

  On Error Resume Next

  Set WrkBk_StateSummary = Application.Workbooks.Open(File_StateSummary)

  On Error GoTo 0

  If Not WrkBk_StateSummary Is Nothing Then

    Set WrkBk_StateSummary = Application.Workbooks.Open(File_StateSummary)       
         
    'Here I am opening the file WrkBk_StateSummary,
    'but if file is not present I want to goto next loop.

Answer 1

您的代码示例不完整，但我希望您想要这个：

For i = 1 To lngLstRowTemp
    If Len(Dir(File_StateSummary)) > 0 Then
        Set WrkBk_StateSummary = Application.Workbooks.Open(File_StateSummary)
    End If
Next i

它首先检查变量File_StateSummary中的文件是否存在，如果存在则打开它。

如果这不是您需要的，请提供更多信息或更完整的代码。

提示： 如果你想避免'箭头代码'（太多Ifs），那么你可以使用这个简洁的语法：VBA - how to conditionally skip a for loop iteration