VBA Loop Through All XLS Files in a Folder or Directory

VBA Loop Through all xls Files in a Folder using built-in Dir() function. In this tutorial we loop through a folder or directory and list all available .xls files in a folder. Lets learn how to use Dir, Right and Len VBA functions in this tutorial.

Table of Contents:

Objective
Example to find all .xls files in a folder using Excel VBA
Instructions to Run VBA Macro Code
Other Useful Resources

Example to find all .xls files in a folder using Excel VBA

Let us see the example macro to loop through all .xls files in a folder using Excel VBA. The output is displayed in the immediate window. We are using Dir function to access all available files in a folder. Right function is used to check ‘\’ is added or not to file path and xls is available in file name or not. And finally Len function is used to check file length.

'VBA Loop Through .xls files in a given Folder
Sub VBAF1_List_All_XLS_Files_Using_Dir()
    
    'Variable Declaration
    Dim sFilePath As String
    Dim sFileName As String
    
    'Specify File Path (Change file path here according to your requirement)
    sFilePath = "C:\Test"
    
    'Check for back slash
    If Right(sFilePath, 1) <> "\" Then
        sFilePath = sFilePath & "\"
    End If
        
    sFileName = Dir(sFilePath & "*.xls")
    
    Do While Len(sFileName) > 0
        If Right(sFileName, 3) = "xls" Then
            'Display file name in immediate window
            Debug.Print sFileName
            
        End If
        'Set the fileName to the next available file
        sFileName = Dir
    Loop
   
End Sub

Output: Here is the output screenshot of above macro. You can see output in the immediate window