close all office files

[colt]

Could anyone help with the code to close all office applications that are
currently open as I close an office docement.
Thanks in anticipation
Colt

 

[Jezebel]

1. Use GetObject() to retrieve any existing instance of the Office
application. You'll need to do this repeatedly for apps that might have more
than one running instance.

2. Use the app's methods (different in each case) to check for open and
unsaved data.

eg, for Excel

Dim pobjApp as object
Do
on error resume next
set pobjApp = GetObject(,"Excel.Application")
on error goto 0
if pobjApp is nothing then
exit do
end if
Do until pobjApp.Workbooks.Count = 0
... prompt to save, close
Loop
pobjApp.Quit
set pobjApp = Nothing
Loop

 

[colt]

Hi Jezebel,

I have used the code below to close excel documents as I exit an Excel
workbook. Is there an equivalent method in word which closes excel and word
files? What I have is a number of files that are opened using hyperlinks and
would like to close all files opened as I exit main program.

Thanks Colt
Public Sub Closeallworkbooks()
Dim Wkb As Workbook
For Each Wkb In Workbooks
If Wkb.Name <> ThisWorkbook.Name Then
Wkb.Saved = True
Wkb.Close
End If
Next Wkb
With ThisWorkbook
..Saved = True
..Close
End With

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Closeallworkbooks
End Sub

 

[Jezebel]

The code I posted will work from Word. Your code will also, if you qualify
the object references. The code for Word is similar, but you iterate the
Documents collection instead of the Workbooks collection. Do you really mean
to discard all changes made to everything?

 

[colt]

There is no need to save changes as all files are information read only files.
This code fails what's wrong?

Public Sub Closeallworkbooks()
Dim Wkb As Workbook
For Each Wkb In Workbooks
If Wkb.Name <> ThisWorkbook.Name Then
Wkb.Saved = True
Wkb.Close
End If
Next Wkb

With ThisWorkbook
..Saved = True
..Close
End With
End Sub

Public Sub Closealldocs()
Dim oDoc As Document
For Each oDoc In Documents
If oDoc.Name <> ThisDocument.Name Then
oDoc.Saved = True
oDoc.Close
End If
Next oDoc

With ThisDocument
..Saved = True
..Close
End With

End Sub

Private Sub Document_Close()
Stop
Call Closeallworkbooks
Call Closealldocs

End Sub

 

[Jezebel]

If you're trying to run that in Word, it's because you haven't qualified the
object references -- you have to tell VBA that these objects belong to the
Excel application object, which you have to instantiate. Have a look at the
code I posted.

Separately, there's no need to handle ThisWorkbook and ThisDocument
separately from the other workbooks and documents. In fact, if you're
running from Word, I'm not sure that ThisWorkbook will be valid at all,
since that's a reference to the workbook that contains the running code.

 

[colt]

Sorry for not responding quickly - had to get my extensions maths group a
lesson thanks for all your help I much appreciate it. I'll have a go with the
code you suggested. thanks again
colt