|
Posted to microsoft.public.excel.programming
|
|
|
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")
|