Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetOpenFilename
Is there a way to set the GetOpenFilename command to start in a specific
directory? NameOfFile = Application _ .GetOpenFilename("Excel Files (*.xls), *.xls") |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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") |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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") |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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") |
#5
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") |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
GetOpenFilename | Excel Programming | |||
GetOpenFilename | Excel Programming | |||
GetOpenFilename | Excel Programming | |||
GetOpenFilename | Excel Programming | |||
Using GetOpenFilename | Excel Programming |