Closing a File

Mike E Golding · Mar 8th, 2002, 11:08 PM

I run a Macro from a button to close Excel which is OK when I have only one file open. I can't create a Macro to close just the current file. (With the offer to save)Some help would be great, thanks.

Ivan F Moala · Mar 8th, 2002, 11:11 PM

Quote:

On 2002-03-08 22:08, Mike E Golding wrote:
I run a Macro from a button to close Excel which is OK when I have only one file open. I can't create a Macro to close just the current file. (With the offer to save)Some help would be great, thanks.

Activeworkbook.Close

Ivan

Dave Hawley · Mar 9th, 2002, 02:29 AM

...Or

Sub CloseOrQuit()
Dim IwbCount As Integer
On Error Resume Next

IwbCount = 2
If Workbooks("Personal.xls") Is Nothing Then
IwbCount = 1
End If

On Error GoTo 0
If Application.Workbooks.Count > IwbCount Then
ActiveWorkbook.Close
Else
Application.Quit
End If

End Sub

_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training
If it's Excel, then it's us!

[ This Message was edited by: Dave Hawley on 2002-03-09 01:35 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 8th, 2002, 11:08 PM	#1
Mike E Golding Board Regular Join Date: Mar 2002 Location: Mike Golding Posts: 71	I run a Macro from a button to close Excel which is OK when I have only one file open. I can't create a Macro to close just the current file. (With the offer to save)Some help would be great, thanks.

Mar 9th, 2002, 02:29 AM	#3
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	...Or Sub CloseOrQuit() Dim IwbCount As Integer On Error Resume Next IwbCount = 2 If Workbooks("Personal.xls") Is Nothing Then IwbCount = 1 End If On Error GoTo 0 If Application.Workbooks.Count > IwbCount Then ActiveWorkbook.Close Else Application.Quit End If End Sub _________________ Kind Regards Dave Hawley OzGrid Business Applications Microsoft Excel/VBA Training If it's Excel, then it's us! [ This Message was edited by: Dave Hawley on 2002-03-09 01:35 ]