Auto Open Files

Hugh · December 17th, 2003, 12:38 PM

Please does anyone know how to open all the files in a folder one at a time, without knowing their names. I did it with an excel 4 macro using "open next" but there does not seem to be an equivalent command in VBA.
Many thanks

Hugh Gunn

chrislepingwell · December 17th, 2003, 01:00 PM

you need to use the 'dir' command

Code:

Fullname = Dir(DOWNLOAD_PATH & FILE_MASK & "*" & FILE_EXT, vbNormal)

While Fullname <> ""

    Workbooks.Open Filename:=DOWNLOAD_PATH & Fullname
FullName = Dir() 'used without arguments, takes the next file in the directory
Wend

set FILE_MASK = Sales, FILE_Ext = .XLS to an effective file search on Sales*.xls, for example.

Chris

There are two secrets to success in this world:
1. Never tell everything you know