Excel VBA Learn how to loop through files in a specific folder

The code used in this video:

Sub GetFiles()
Dim file As String
file = Dir("C:\Reports\*.xl??")

Dim row As Integer
row = 1

Do While file ""

Cells(row, 1) = file

row = row + 1
file = Dir()

Loop

End Sub

свернуть