GetOpenFilename - Default Folder

  • Thread starter Thread starter Andy
  • Start date Start date
A

Andy

Hi I apologise if I am asking a commonly question this newsgroup has
answered before.

I pick up a file selected by the user. I want to specify a default folder
from where my user can select his transaction file. Is this possible?

This is what I am currently doing.
TxnFilename = Application.GetOpenFilename("All Files (*.*), *.*", 1, "Import
Transaction Details for List")

Thanks
Andy
 
Andy,

Use a chdir statement.
ie
ChDir ("C:\My Excel Files")
TxnFilename = Application.GetOpenFilename("All Files (*.*), *.*", 1, "ImportTransaction Details for List")

Dan E
 
Try this example sub
I will save your default folder first to set it back at the end

Sub test()
Dim SaveDriveDir As String
Dim TheFileName As Variant
SaveDriveDir = CurDir
ChDrive "C"
ChDir "C:\Data"
TheFileName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")

MsgBox "your code"

ChDrive SaveDriveDir
ChDir SaveDriveDir
End Sub
 
Back
Top