Display Files in Folder with VBA

How to display files in a folder with VBA. We can display all the files in a folder or files with a specific file extension like ‘.xls’. Watch the training video to learn more about this feature:

Watch this video on YouTube.

Here’s the complete VBA macro code for ready reference. When you copy the code and paste it in your computer check the pasted code especially the ‘quotes’ characters.

Sub loopThruDirectory()
Dim myFile As String, path As String
Dim erow As Long

path = “c:\exceltrainingvideos\”
myFile = Dir(path & “*.xls”)

Do While myFile <> “”
erow = Sheets(“sheet1”).Range(“A” & Rows.Count).End(xlUp).Offset(1, 0).Row
Cells(erow, 1) = myFile
myFile = Dir()

End Sub

Further reading:

MS Excel: DIR Function (VBA)

Leave a Reply

Your email address will not be published. Required fields are marked *