GetOpenFilename
 

Is there a way to set the €œGetOpenFilename€� command to start in a specific
directory?

NameOfFile = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")

GetOpenFilename
 

Hi

Try this

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

SaveDriveDir = CurDir

MyPath = "C:/Chrysant"
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls),
*.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"wtpcomplab" wrote in message
...
Is there a way to set the "GetOpenFilename" command to start in a specific
directory?

NameOfFile = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")

GetOpenFilename
 

Ron's method is probably best, but if you want some more pain and suffering
in your life, it looks like the FileDialog method in Office 10 / Office XP
would do this, too :)

James Cox
"wtpcomplab" wrote in message
...
Is there a way to set the "GetOpenFilename" command to start in a specific
directory?

NameOfFile = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")

GetOpenFilename
 

Thank You

Dan

"James Cox" wrote:

Ron's method is probably best, but if you want some more pain and suffering
in your life, it looks like the FileDialog method in Office 10 / Office XP
would do this, too :)

James Cox
"wtpcomplab" wrote in message
...
Is there a way to set the "GetOpenFilename" command to start in a specific
directory?

NameOfFile = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")

GetOpenFilename
 

Thank You
Dan

"Ron de Bruin" wrote:

Hi

Try this

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

SaveDriveDir = CurDir

MyPath = "C:/Chrysant"
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls),
*.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"wtpcomplab" wrote in message
...
Is there a way to set the "GetOpenFilename" command to start in a specific
directory?

NameOfFile = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")