Opening multiple .xls files with a macro

  • Thread starter Thread starter Thubs
  • Start date Start date
T

Thubs

Hi all,

I have a little problem : I would like to create a macro which opens
all .xls files in a specified folder. The number and the name of these
files may vary, so the macro should open "*.xls".

Is it possible to do that ?
Thanks a lot
Phil
 
Hi all,

I have a little problem : I would like to create a macro which opens
all .xls files in a specified folder. The number and the name of these
files may vary, so the macro should open "*.xls".

Is it possible to do that ?
Thanks a lot
Phil
Click to expand...

It is possible, but you'll have to get the exact file-path for each
..xls-file. Take a look at the 3rd posting on the following webpage:

http://www.vbcity.com/forums/topic.asp?tid=21164&highlight=get|directory%
7Clist

It features a good example of retrieving the list of all the .csv-files in
a user-specified folder.

Once you have all the filenames and path of the folder, you could use

Workbooks.Open

in a for-next loop to open all the .xls-files.

HTH
CoRrRan
 
Try this with GetOpenFilename

Sub testing()
Dim FName As Variant
Dim N As Long
Dim S As String
FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", _
MultiSelect:=True)

If IsArray(FName) Then
For N = LBound(FName) To UBound(FName)
Workbooks.Open (FName(N))
Next
End If
End Sub
 
Back
Top