Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Open Dialog Box
I am using the macro below to retreives the path and filename of a file that I select from the File Open dialog box How can I tweak this macro so that the dialog box always opens in the C:\Employee Performance\ directory? Any help would be much appreciatted Sub GetFileName() Dim sFileName As String sFileName = Application.GetOpenFilename If sFileName = "False" Then Exit Sub ThisWorkbook.Activate Range("a1").Value = sFileName End Sub -- Papa Waigo ------------------------------------------------------------------------ Papa Waigo's Profile: http://www.excelforum.com/member.php...o&userid=36074 View this thread: http://www.excelforum.com/showthread...hreadid=560059 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Open Dialog Box
Function BrowseFile() As String
Dim obOpenDialog As FileDialog Set obOpenDialog = Application.FileDialog(msoFileDialogOpen) While obOpenDialog.Filters.Count 0 obOpenDialog.Filters.Delete Wend With obOpenDialog .InitialFileName = "C:\" .AllowMultiSelect = False .Filters.Add "MS Access database", "*.mdb", 1 .Filters.Add "All files", "*.*", 2 .Show If .SelectedItems.Count 0 BrowseFile = .SelectedItems(1) else BrowseFile = "" end if End With End Function Papa Waigo wrote: I am using the macro below to retreives the path and filename of a file that I select from the File Open dialog box How can I tweak this macro so that the dialog box always opens in the C:\Employee Performance\ directory? Any help would be much appreciatted Sub GetFileName() Dim sFileName As String sFileName = Application.GetOpenFilename If sFileName = "False" Then Exit Sub ThisWorkbook.Activate Range("a1").Value = sFileName End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Open Dialog Box
Note: that GetOpenFilename is working in 97-2007 and FileDialog not (2002)
Dim FName As Variant Dim wb As Workbook Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = "C:\Data" 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 -- Regards Ron de Bruin http://www.rondebruin.nl "witek" wrote in message ... Function BrowseFile() As String Dim obOpenDialog As FileDialog Set obOpenDialog = Application.FileDialog(msoFileDialogOpen) While obOpenDialog.Filters.Count 0 obOpenDialog.Filters.Delete Wend With obOpenDialog .InitialFileName = "C:\" .AllowMultiSelect = False .Filters.Add "MS Access database", "*.mdb", 1 .Filters.Add "All files", "*.*", 2 .Show If .SelectedItems.Count 0 BrowseFile = .SelectedItems(1) else BrowseFile = "" end if End With End Function Papa Waigo wrote: I am using the macro below to retreives the path and filename of a file that I select from the File Open dialog box How can I tweak this macro so that the dialog box always opens in the C:\Employee Performance\ directory? Any help would be much appreciatted Sub GetFileName() Dim sFileName As String sFileName = Application.GetOpenFilename If sFileName = "False" Then Exit Sub ThisWorkbook.Activate Range("a1").Value = sFileName End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Open Dialog Box to return Selected File Path and Not Open it. | Excel Programming | |||
File open dialog box | Excel Discussion (Misc queries) | |||
File Browse Function (Open dialog box for choosing file) | Excel Programming | |||
file open dialog | Excel Programming | |||
open file dialog-select file-import worksheet | Excel Programming |