GetOpenFilename w/default starting directory
Is there a way to use GetOpenFilename with a default starting directory?
Lance |
GetOpenFilename w/default starting directory
Hi Lance
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 -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl wrote in message ... Is there a way to use GetOpenFilename with a default starting directory? Lance |
All times are GMT +1. The time now is 08:01 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com