Prev: Sub assistance
Next: how do i use analytical hierarchy process in excel?
From: John on 1 Jan 2010 15:29
I would like Application.GetOpenFilename to prompt me to select a folder,
then open all files in that folder. What is the proper syntax please?


From: Mike H on 1 Jan 2010 16:19
John

This will open all the .xls files in the selected folder

Sub Open_All_Files()
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MyPath = .SelectedItems(1)
End With
ActiveFile = Dir(MyPath & "*.xls")
Do While ActiveFile <> ""
Workbooks.Open Filename:=MyPath & ActiveFile
ActiveFile = Dir()
Loop
Application.DisplayAlerts = True
End Sub

Mike

"John" wrote:

> I would like Application.GetOpenFilename to prompt me to select a folder,
> then open all files in that folder. What is the proper syntax please?
>
>
> .
>
From: Mike H on 1 Jan 2010 16:24
I forgot to mention that in the folder picker you must 'Double Click' to
select the folder then OK

Mike

"Mike H" wrote:

> John
>
> This will open all the .xls files in the selected folder
>
> Sub Open_All_Files()
> Application.DisplayAlerts = False
> With Application.FileDialog(msoFileDialogFolderPicker)
> .Show
> MyPath = .SelectedItems(1)
> End With
> ActiveFile = Dir(MyPath & "*.xls")
> Do While ActiveFile <> ""
> Workbooks.Open Filename:=MyPath & ActiveFile
> ActiveFile = Dir()
> Loop
> Application.DisplayAlerts = True
> End Sub
>
> Mike
>
> "John" wrote:
>
> > I would like Application.GetOpenFilename to prompt me to select a folder,
> > then open all files in that folder. What is the proper syntax please?
> >
> >
> > .
> >
 | 
Pages: 1
Prev: Sub assistance
Next: how do i use analytical hierarchy process in excel?