| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Canceling a read file function
I have a macro where the user is required to select a file to open. This is done via the Windows Open File dialog box. If they elect to "cancel" and not open the file, I get an error. I know there must be some coding I can put into my macro to trap this and just exit the macro if this happens. Thanks Mike -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=552286 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
On Error GoTo Cancel
|
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
Sorry I forgot to paste the line:
CommonDialog1.CancelError = True befo On Error GoTo Cancel "mwc0914" wrote: I have a macro where the user is required to select a file to open. This is done via the Windows Open File dialog box. If they elect to "cancel" and not open the file, I get an error. I know there must be some coding I can put into my macro to trap this and just exit the macro if this happens. Thanks Mike -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=552286 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
hi Mike
Use GetOpenFilename 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 -- Regards Ron De Bruin http://www.rondebruin.nl "mwc0914" wrote in message ... I have a macro where the user is required to select a file to open. This is done via the Windows Open File dialog box. If they elect to "cancel" and not open the file, I get an error. I know there must be some coding I can put into my macro to trap this and just exit the macro if this happens. Thanks Mike -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=552286 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
Tired it but am getting False.xls not defined error. My code is... |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
Application.GetOpenFilename, nice! I didn't know about that function. I was
surprised I didn't need to use quotes he If FName < "False" Then "Ron de Bruin" wrote: hi Mike Use GetOpenFilename 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 -- Regards Ron De Bruin http://www.rondebruin.nl "mwc0914" wrote in message ... I have a macro where the user is required to select a file to open. This is done via the Windows Open File dialog box. If they elect to "cancel" and not open the file, I get an error. I know there must be some coding I can put into my macro to trap this and just exit the macro if this happens. Thanks Mike -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=552286 |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
Not use "False"
You get problems when you run the code on a Dutch machine or other language See Stephen's site http://www.oaltd.co.uk/ExcelProgRef/Default.htm Click on "International Issues" -- Regards Ron De Bruin http://www.rondebruin.nl "Charlie" wrote in message ... Application.GetOpenFilename, nice! I didn't know about that function. I was surprised I didn't need to use quotes he If FName < "False" Then "Ron de Bruin" wrote: hi Mike Use GetOpenFilename 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 -- Regards Ron De Bruin http://www.rondebruin.nl "mwc0914" wrote in message ... I have a macro where the user is required to select a file to open. This is done via the Windows Open File dialog box. If they elect to "cancel" and not open the file, I get an error. I know there must be some coding I can put into my macro to trap this and just exit the macro if this happens. Thanks Mike -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=552286 |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Canceling a read file function
I got it working with the following code... |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Self canceling checkboxes | Excel Discussion (Misc queries) | |||
| I have a read only xl file, I need it to be read and write | Excel Discussion (Misc queries) | |||
| How can a file be converted from Read-Only to Read/Write | Excel Discussion (Misc queries) | |||
| Canceling a print job | Excel Programming | |||
| Canceling a UserForm | Excel Programming | |||
![mwc0914[_14_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
