Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetOpenFilename
below is the code I have used to to open the open file
dialog and display on Excel type files. It works correctly, however if I select and open a file in the dialog box, I want combobox3 to show ONLY the filename, NOT the file name including path. Currently the below code shows the full path in combobox3. How do I do this? If ComboBox3.Value = "Export from Un-Opened Workbook..." Then 'MsgBox ("Navigate to source workbook and then click " & "OK") FileToOpen = Application _ .GetOpenFilename("All Microsoft Excel Files (*.xl;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*. xlb),*.xl ;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*.xlb,E xcel Files (*.xls),*.xls,Add-In Files (*.xla),*.xla") If FileToOpen = False Then GoTo SelectWorkbook Else Workbooks.Open FileToOpen Unload Me PublishBackupExport.Show ComboBox3.Value = ComboBox3.Value GoTo SelectWorkbook End If End If Thank you Todd Huttenstine |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetOpenFilename
Hi
have a look at the InStrRev method. Use this to find the last '\' in your return value and use Mid/Right to get only the relevant part (Works for Excel 2000+) -----Original Message----- below is the code I have used to to open the open file dialog and display on Excel type files. It works correctly, however if I select and open a file in the dialog box, I want combobox3 to show ONLY the filename, NOT the file name including path. Currently the below code shows the full path in combobox3. How do I do this? If ComboBox3.Value = "Export from Un-Opened Workbook..." Then 'MsgBox ("Navigate to source workbook and then click " & "OK") FileToOpen = Application _ .GetOpenFilename("All Microsoft Excel Files (*.xl;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*. xlb),*.xl ;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*.xlb, Excel Files (*.xls),*.xls,Add-In Files (*.xla),*.xla") If FileToOpen = False Then GoTo SelectWorkbook Else Workbooks.Open FileToOpen Unload Me PublishBackupExport.Show ComboBox3.Value = ComboBox3.Value GoTo SelectWorkbook End If End If Thank you Todd Huttenstine . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetOpenFilename
I used the below code:
If ComboBox3.Value = "Export from Un-Opened Workbook..." Then 'MsgBox ("Navigate to source workbook and then click " & "OK") FileToOpen = Application _ .GetOpenFilename("All Microsoft Excel Files (*.xl;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*. xlb),*.xl ;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*.xlb,E xcel Files (*.xls),*.xls,Add-In Files (*.xla),*.xla") If FileToOpen = False Then GoTo SelectWorkbook Else Workbooks.Open FileToOpen ComboBox3.AddItem ActiveWorkbook.Name ComboBox3.Value = ActiveWorkbook.Name End If End If I will also look at the InStrRev as you suggested. Thank you. There are mahy times when I need to do that sort of thing. -----Original Message----- Hi have a look at the InStrRev method. Use this to find the last '\' in your return value and use Mid/Right to get only the relevant part (Works for Excel 2000+) -----Original Message----- below is the code I have used to to open the open file dialog and display on Excel type files. It works correctly, however if I select and open a file in the dialog box, I want combobox3 to show ONLY the filename, NOT the file name including path. Currently the below code shows the full path in combobox3. How do I do this? If ComboBox3.Value = "Export from Un-Opened Workbook..." Then 'MsgBox ("Navigate to source workbook and then click " & "OK") FileToOpen = Application _ .GetOpenFilename("All Microsoft Excel Files (*.xl;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*. xlb),*.xl ;*.xls;*.xla;*.xlt;*.xlm;*.xlc;*.xlw;*.xll;*.xlb ,Excel Files (*.xls),*.xls,Add-In Files (*.xla),*.xla") If FileToOpen = False Then GoTo SelectWorkbook Else Workbooks.Open FileToOpen Unload Me PublishBackupExport.Show ComboBox3.Value = ComboBox3.Value GoTo SelectWorkbook End If End If Thank you Todd Huttenstine . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
GetOpenFileName | Excel Programming | |||
GetOpenFilename | Excel Programming | |||
GetOpenFilename | Excel Programming | |||
getopenfilename | Excel Programming | |||
GetOpenFilename | Excel Programming |