Excel - Application.GetOpenFilename from a specified directory

Asked By C C on 20-May-08 09:27 AM
Hello!

I have Excel 2003 and I already have a macro to popup a open file dialog.
However, it always starts at "C:\My Documents" folder.  I want it to browse
files to open from a specific directory.  How is this done?  Note that I
already have the "ChDir" on the line above the "Application.GetOpenFilename"
but the browsing does not start from the specified directory.

Thanks in advance for your response.




Ron de Bruin replied on 20-May-08 09:33 AM
This is small example

Change

MyPath = ThisWorkbook.Path

to your folder

MyPath = "C:\Users\Ron\test\"


Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName <> False Then
Workbooks.Open (FName)
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm