Application.GetOpenFilename from a specified directory

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

C C - 20 May 2008 14:27 GMT

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.

Reply to this Message

Ron de Bruin - 20 May 2008 14:33 GMT

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

Signature

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

> Hello!
>
[quoted text clipped - 5 lines]
>
> Thanks in advance for your response.

Reply to this Message