Application.GetOpenFilename from a specified directory

C

C C

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.
 
R

Ron de Bruin

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top