VBA Loop Through xlam Files in a Folder using built-in Dir() function. In this tutorial we loop through a folder or directory and list all available .xlam files in a folder. Lets learn how to use Dir, Right and Len VBA functions in this tutorial.
Let us see the example macro to loop through .xlam files in a folder using Excel VBA. The output is displays 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 xlam is available in file name or not. And finally Len function is used to check file length.
'VBA Loop Through .xlam files in a given Folder Sub VBAF1_List_All_xlam_Files_Using_Dir() 'Variable Declaration Dim sFilePath As String Dim sFileName As String 'Specify File Path sFilePath = "C:\Test" 'Check for back slash If Right(sFilePath, 1) <> "\" Then sFilePath = sFilePath & "\" End If sFileName = Dir(sFilePath & "*.xlam") Do While Len(sFileName) > 0 If Right(sFileName, 4) = "xlam" 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
You can refer the following link for the step by step instructions.
Click on the following links of the useful resources. These helps to learn and gain more knowledge.