| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 400
Hi all, I have this Save As code linked to a Option Button. Everything works as i want it to, except when there is already been a file saved with the current date. Then i get a message box asking if i want to overwrite the file. I DO want that. BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400" thingy. I DON'T want that error message. If i put like "Application.DisplayAlerts = False" in then it also blocks the "Do i want to overwrite dialog", which i want to keep. Code: -------------------- Private Sub SaveAsTo() Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" End Sub -------------------- Any direction on this would shurly be appreciated. -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error 400
Try this
On Error Resume Next ActiveWorkbook.SaveAs _ Filename:=ActiveWorkbook.Path & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" If Err.Number = 1004 Then MsgBox "cancelled" End If On Error GoTo 0 -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21b0yr_1136704226.2156@excelforu m-nospam.com wrote in message news:Desert.Piranha.21b0yr_1136704226.2156@excelfo rum-nospam.com... Hi all, I have this Save As code linked to a Option Button. Everything works as i want it to, except when there is already been a file saved with the current date. Then i get a message box asking if i want to overwrite the file. I DO want that. BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400" thingy. I DON'T want that error message. If i put like "Application.DisplayAlerts = False" in then it also blocks the "Do i want to overwrite dialog", which i want to keep. Code: -------------------- Private Sub SaveAsTo() Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" End Sub -------------------- Any direction on this would shurly be appreciated. -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error 400
Hi Bob, Thx for this. The message box is a nice touch, i like that. Sooo how do you know that the error number is 1004 ?? Thx again Dave Bob Phillips Wrote: Try this On Error Resume Next ActiveWorkbook.SaveAs _ Filename:=ActiveWorkbook.Path & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" If Err.Number = 1004 Then MsgBox "cancelled" End If On Error GoTo 0 -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21b0yr_1136704226.2156@excelforu m-nospam.com wrote in message news:Desert.Piranha.21b0yr_1136704226.2156@excelfo rum-nospam.com... Hi all, I have this Save As code linked to a Option Button. Everything works as i want it to, except when there is already been a file saved with the current date. Then i get a message box asking if i want to overwrite the file. I DO want that. BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400" thingy. I DON'T want that error message. If i put like "Application.DisplayAlerts = False" in then it also blocks the "Do i want to overwrite dialog", which i want to keep. Code: -------------------- Private Sub SaveAsTo() Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" End Sub -------------------- Any direction on this would shurly be appreciated. -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error 400
I tried it and found out.
-- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21c1ay_1136751301.8023@excelforu m-nospam.com wrote in message news:Desert.Piranha.21c1ay_1136751301.8023@excelfo rum-nospam.com... Hi Bob, Thx for this. The message box is a nice touch, i like that. Sooo how do you know that the error number is 1004 ?? Thx again Dave Bob Phillips Wrote: Try this On Error Resume Next ActiveWorkbook.SaveAs _ Filename:=ActiveWorkbook.Path & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" If Err.Number = 1004 Then MsgBox "cancelled" End If On Error GoTo 0 -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21b0yr_1136704226.2156@excelforu m-nospam.com wrote in message news:Desert.Piranha.21b0yr_1136704226.2156@excelfo rum-nospam.com... Hi all, I have this Save As code linked to a Option Button. Everything works as i want it to, except when there is already been a file saved with the current date. Then i get a message box asking if i want to overwrite the file. I DO want that. BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400" thingy. I DON'T want that error message. If i put like "Application.DisplayAlerts = False" in then it also blocks the "Do i want to overwrite dialog", which i want to keep. Code: -------------------- Private Sub SaveAsTo() Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" End Sub -------------------- Any direction on this would shurly be appreciated. -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error 400
Hi Bob, Oh ok, i see. If you run the code from the VBE it then shows the Erro number. Cool. Thx Bob for your help. Dave Bob Phillips Wrote: I tried it and found out. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21c1ay_1136751301.8023@excelforu m-nospam.com wrote in messag news:Desert.Piranha.21c1ay_1136751301.8023@excelfo rum-nospam.com... Hi Bob, Thx for this. The message box is a nice touch, i like that. Sooo how do you know that the error number is 1004 ?? Thx again Dave Bob Phillips Wrote: Try this On Error Resume Next ActiveWorkbook.SaveAs _ Filename:=ActiveWorkbook.Path & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" If Err.Number = 1004 Then MsgBox "cancelled" End If On Error GoTo 0 -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21b0yr_1136704226.2156@excelforu m-nospam.com wrot in message news:Desert.Piranha.21b0yr_1136704226.2156@excelfo rum-nospam.com... Hi all, I have this Save As code linked to a Option Button. Everything works as i want it to, except when there is alread been a file saved with the current date. Then i get a message box asking if i want to overwrite the file. I DO want that. BUT if i answer "No" or "Cancel" i get a Visual Basic "Erro 400" thingy. I DON'T want that error message. If i put like "Application.DisplayAlerts = False" in then i also blocks the "Do i want to overwrite dialog", which i want to keep. Code: -------------------- Private Sub SaveAsTo() Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Pat & "\" & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" End Sub -------------------- Any direction on this would shurly be appreciated. -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread http://www.excelforum.com/showthread...hreadid=499135 -- Desert Piranh ----------------------------------------------------------------------- Desert Piranha's Profile: http://www.excelforum.com/member.php...fo&userid=2893 View this thread: http://www.excelforum.com/showthread.php?threadid=49913 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Error 400
My pleasure Dave.
-- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21e7bb_1136852401.8161@excelforu m-nospam.com wrote in message news:Desert.Piranha.21e7bb_1136852401.8161@excelfo rum-nospam.com... Hi Bob, Oh ok, i see. If you run the code from the VBE it then shows the Error number. Cool. Thx Bob for your help. Dave Bob Phillips Wrote: I tried it and found out. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21c1ay_1136751301.8023@excelforu m-nospam.com wrote in message news:Desert.Piranha.21c1ay_1136751301.8023@excelfo rum-nospam.com... Hi Bob, Thx for this. The message box is a nice touch, i like that. Sooo how do you know that the error number is 1004 ?? Thx again Dave Bob Phillips Wrote: Try this On Error Resume Next ActiveWorkbook.SaveAs _ Filename:=ActiveWorkbook.Path & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" If Err.Number = 1004 Then MsgBox "cancelled" End If On Error GoTo 0 -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Desert Piranha" <Desert.Piranha.21b0yr_1136704226.2156@excelforu m-nospam.com wrote in message news:Desert.Piranha.21b0yr_1136704226.2156@excelfo rum-nospam.com... Hi all, I have this Save As code linked to a Option Button. Everything works as i want it to, except when there is already been a file saved with the current date. Then i get a message box asking if i want to overwrite the file. I DO want that. BUT if i answer "No" or "Cancel" i get a Visual Basic "Error 400" thingy. I DON'T want that error message. If i put like "Application.DisplayAlerts = False" in then it also blocks the "Do i want to overwrite dialog", which i want to keep. Code: -------------------- Private Sub SaveAsTo() Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _ "myfile " & Format(Date, "mm-dd-yyyy") & ".xls" End Sub -------------------- Any direction on this would shurly be appreciated. -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 -- Desert Piranha ------------------------------------------------------------------------ Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934 View this thread: http://www.excelforum.com/showthread...hreadid=499135 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Counting instances of found text (Excel error? Or user error?) | Excel Worksheet Functions | |||
| run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
| Automation Error, Unknown Error. Error value - 440 | Excel Programming | |||
| Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming | |||
![Desert Piranha[_27_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
