如何在 For .. Do 循环中重置变量？

Question

如何在 do 循环中将保留变量重置为 0？我要重置的是idx。

idx 表示正在搜索的子文件夹的编号。

例如，总共有 100 个子文件夹，因此 idx max=100。当宏找到匹配文件夹时，例如。 50.它保留了idx=50。所以对于新的搜索，idx 不会从头开始，而是从 51、52、53...100 继续新的搜索。所以如果匹配的子文件夹 idx 为 20，由于宏没有经过 0-50，它会将其视为未找到并退出循环。

我可以在哪里重置这个变量？

    Dim idx As Integer
    For idx = 0 To UBound(Array_SubFolders)
        Dim fileName As String
        fileName = Dir(Array_SubFolders(idx) & "/*.xlsb")
        On Error Resume Next
        Do While fileName <> ""
            FullPathFileName = Array_SubFolders(idx) & "\" & fileName
            If (Left(fileName, 12) = "Ass_Sheet_") Then
                Dim prodName As String
                prodName = ThisWorkbook.Sheets("Master").Cells(MasterRow, 1).Value
                If (InStr(fileName, prodName) > 0) Then
                    Call prc_Import_Values(fileName)
                    MasterRow = MasterRow + 1
                End If
            End If
            fileName = Dir()
        Loop

    Next

    MsgBox "--- finished ---"

Answer 1

首先，我强烈建议删除On Error Resume Next，因为将它留在里面只会在出现问题并且您没有收到任何错误消息时导致痛苦和心痛。如果您在删除后收到错误消息，您应该追踪错误的来源并修复它或使用适当的保护子句或错误处理来处理它。

其次，我认为您想重复搜索整个Array_SubFolders 以查找名称中包含prodName 的每个子文件夹中的任何文件。如果是这样的话，我会建议这样的事情：

Dim index As Integer
index= 0
Do While index < UBound(Array_SubFolders) 
    Dim fileName As String
    fileName = Dir(Array_SubFolders(index) & "\*.xlsb")
    Do While fileName <> ""
        FullPathFileName = Array_SubFolders(index) & "\" & fileName
        If (Left(fileName, 12) = "Ass_Sheet_") Then
            Dim prodName As String
            prodName = ThisWorkbook.Sheets("Master").Cells(MasterRow, 1).Value
            If (InStr(fileName, prodName) > 0) Then
                Call prc_Import_Values(fileName)
                MasterRow = MasterRow + 1
                index = 0
            End If
        End If
        fileName = Dir()
    Loop
    index = index+ 1
Loop

不是使用For...Next 循环并尝试重置索引（通常建议不要这样做），而是使用Do While...Loop 并在找到If (InStr(fileName, prodName) > 0) Then 行上的匹配项时重置索引。如果那是错误的位置，那么您可以将index = 0 移动到实际匹配发生的位置。

另外，请注意我将idx 更改为index。元音很便宜，我相信不去除元音会使它们更具可读性。此外，借助 VBIDE 的自动完成功能，键入 in<ctrl-space> 可能会以相同的击键次数获得相同的结果。