PDA

Vollständige Version anzeigen : Weitere Excel-Mappen geöffnet?


messias
21.02.2008, 06:08
Hallo,

kann man per VBA feststellen ob weitere Excel-Mappen geöffnet sind wenn man keinen Dateinamen / Speicherort kennt?

Es soll über diese abfrage geprüft werden wenn weitere Mappen offen - dann Schließe nur diese, wenn keine - dann schließe Excel.

Gruß

Holger

jinx
21.02.2008, 06:41
<font size="2" face="Century Gothic">Moin, Holger,

Application.Workbooks.Count
dabei wird aber eine vorhandene persönliche Arbeitsmappe ebenfalls mitgezählt. Ansatz in etwa:

If Application.Workbooks.Count > 1 then
For Each wb in Workbooks
If wb.Name <> ThisWorkbook.Name Then
ws.Close SaveChanges:=True
Else
ThisWorkbook.Save
Application.Quit
End If
Next wb
End If</font>

messias
21.02.2008, 09:08
Hallo jinx,

wenn mehr als eine Mappe geöffnet ist bekomme ich bei
ws.Close SaveChanges:=True

den Laufzeitfehler "424 Objekt erforderlich" :rolleyes:

Gruß

Holger

jinx
21.02.2008, 09:17
<font size="2" face="Century Gothic">Moin, Holger,

mein Fehler (da nur im Forum erstellt und nicht kontrolliert): es darf nicht ws heißen, sondern muss wb lauten:
wb.Close SaveChanges:=True</font>

messias
21.02.2008, 09:59
Oh ja!

Hatte mir aber auch auffallen müssen :entsetzt:

Und wieder einmal, danke für deine Hilfe! :five:

Holger