Alle openstaande Excel-bestanden saven en sluiten

[mulderm]

Hallo,

Ik wil in module1 een stukje code zetten dat ervoor zorgt dat alle
openstaande Excel-bestanden, of Excel zelf die open staat, gesaved
en gesloten wordt.
Wie heeft een idee?

mulderm

 

[mulderm]

Ik dacht zelf aan:

Sub test()
Dim ex As New Excel.Application
For Each w In ex.Workbooks
w.Close savechanges:=True
Next w


End Sub

maar dit werkt niet!

mulderm

 

[mulderm]

Niemand een idee?

mulderm

 

[zRowix]

ik denk dat je dan via de script host automation wel kan bereiken in combinatie met de Excel automation. Met de script host kun je als ik het goed uit mijn hoofd zeg kijken of een applicatie acteif is en met de automation van excel kun je alles saven.

Misschien is het de oplossing