Starting at certain file while traversing directory

[Legacy 96851]

Pretty much the thread title is what I need to do. The files in the directory have to be in alphabetical order, and I need my macro to collect data from all of them. However, it should start at the letter T, not A (then after it gets to the end (Z), loop back around from the beginning (A-S)). Here is the code I currently have that does them in alphabetical order.

    sourceName = ActiveWorkbook.Name
    sourcePath = ActiveWorkbook.Path & "\"
 
    sumfile = Dir(sourcePath & "*.xls")
    While sumfile <> ""
            'stuff it does with the file'
        sumfile = Dir()
    Wend

 

[John_w]

You could have a couple of loops like this:

Sub Test()

    SourceName = ActiveWorkbook.Name
    sourcePath = ActiveWorkbook.Path & "\"
 
    Dim firstChar As Long
    
    For firstChar = Asc("T") To Asc("Z")
        sumfile = Dir(sourcePath & Chr(firstChar) & "*.xls")
        While sumfile <> ""
            'stuff it does with the file'
            sumfile = Dir()
        Wend
    Next
    
    For firstChar = Asc("A") To Asc("S")
        sumfile = Dir(sourcePath & Chr(firstChar) & "*.xls")
        While sumfile <> ""
            'stuff it does with the file'
            sumfile = Dir()
        Wend
    Next
    
End Sub

 

[Legacy 96851]

You could have a couple of loops like this:

Sub Test()
 
    SourceName = ActiveWorkbook.Name
    sourcePath = ActiveWorkbook.Path & "\"
 
    Dim firstChar As Long
 
    For firstChar = Asc("T") To Asc("Z")
        sumfile = Dir(sourcePath & Chr(firstChar) & "*.xls")
        While sumfile <> ""
            'stuff it does with the file'
            sumfile = Dir()
        Wend
    Next
 
    For firstChar = Asc("A") To Asc("S")
        sumfile = Dir(sourcePath & Chr(firstChar) & "*.xls")
        While sumfile <> ""
            'stuff it does with the file'
            sumfile = Dir()
        Wend
    Next
 
End Sub

Thanks a lot. Sort of already circumvented the problem using cuts and inserts, but I like this way better, so I'll check it out tomorrow.