Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application.FileDialog(msoFileDialogOpen)
LS, from Excel with VBA using a UserForm I can display the files in a special directory, using: With Application.FileDialog(msoFileDialogOpen) ..InitialFileName = strPath & "\*" ..AllowMultiSelect = False ..Show End With How do I manage that from that FileDiaolog a file (.xls, .doc or .txt) can be opened? Doubleclick on the file gives no result. -- H.A. de Wilde ------------------------------------------------------------------------ H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679 View this thread: http://www.excelforum.com/showthread...hreadid=548160 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application.FileDialog(msoFileDialogOpen)
This example use GetOpenFilename that can do the same and it is working in 97 and up
Sub test() Dim FName As Variant Dim wb As Workbook Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = ThisWorkbook.Path 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 For multiselect do it like this Sub testing() Dim FName As Variant Dim N As Long FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", _ MultiSelect:=True) If IsArray(FName) Then For N = LBound(FName) To UBound(FName) Workbooks.Open (FName(N)) Next End If End Sub -- Regards Ron De Bruin http://www.rondebruin.nl "H.A. de Wilde" wrote in message news:H.A.de.Wilde.28ufsm_1149367203.8099@excelforu m-nospam.com... LS, from Excel with VBA using a UserForm I can display the files in a special directory, using: With Application.FileDialog(msoFileDialogOpen) InitialFileName = strPath & "\*" AllowMultiSelect = False Show End With How do I manage that from that FileDiaolog a file (.xls, .doc or .txt) can be opened? Doubleclick on the file gives no result. -- H.A. de Wilde ------------------------------------------------------------------------ H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679 View this thread: http://www.excelforum.com/showthread...hreadid=548160 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Application.FileDialog(msoFileDialogFolderPicker) | Excel Discussion (Misc queries) | |||
FileDialog(msoFileDialogOpen) | Excel Programming | |||
filedialog | Excel Worksheet Functions | |||
Alternative to Application.FileDialog (please)? | Excel Programming | |||
FileDialog Help | Excel Programming |