Counting the number of files in a folder.

[DominikWells]

I have been trying to develop a macro which will count the number of files in a known directory (defined in a string). I would also like to open these one by one to extract data from them. Anyone know how to do this other than forcing the user to open them one by one using GetOpenFilename?

 

[Al Chara]

Try the following code:

Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:YourPath")
Set fc = f.Files
For Each f1 In fc
Workbooks.Open f1.Path
Next

Subsitute your folder for C:YourFolder. The code finds all files in the folder and opens them.