Office: Excel per VBA beenden

Hallo Spezialisten

Ich hatte auf einer Userform einen Exit-Button, der Excel schliesst:
Code:

Das ist aber unklug, wenn parallel noch eine andere Instanz offen ist...
Also gehe ich momentan diesen Weg:
Code:

So bleibt Excel offen. Egal, obs noch verwendet wird, oder nicht.

Nun natürlich meine logische Frage:
Wie kann ich prüfen, ob Excel von einer anderen Datei benutzt wird?
Wenn nein --> Quit
falls ja --> Close

Ist das soweit verständlich?
Wäre toll, wenn mir da jemand helfen könnte *Smilie

:)

 

Moin, Ginsky,

eine andere Instanz von Excel ist unabhängig von der, in der die UF geschlossen wird. Die Auflistung der geöffneten Arbeitsmappen durchlaufen (Personl.xls wird als geöffnete Mappe mitgezählt):

Code:

gibt die Anzahl der geöffneten Mappen im Direktfenster aus.

Wenn also die Zahl größer als 1 (ohne personl.xls) ist, nur die Mappe schließen...

 

Hi jinx

Wie immer: flott und kompetent!
Habs hingekriegt *Smilie

Code:

Schanke döön!

 

Hallo,

dein Code hat mir geholfen! Danke!

Aber...wie realisiere ich das Ganze, wenn ich die Datei beuwsst NICHT speichern will UND Keine speichern Nachfrage möchte.

Mein Ansatz: Ich ersetze deinen "Tabelle Speichern"-Befehl durch einen Tabelle-Schließen ohne zu speichern"-Befehl.

Das Problem: Der Befehl die Excel-Anwendung zu beenden wird gar nicht mehr erreicht, weil ja vorher schon die Tabelle geschlossen wurde...

Gruß

V A T

 

Hallo V A T,

im Else-Zweig:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

Danke für Deine schnelle Antwort. Aber deine Lösung ist ja genau das, was zu meinem Problem führt.

Du hast genau das als Code beschrieben, was ich in Worten als "Ansatz" formuliert habe. Daraus resultiert das Problem. Sobald ich das Workbook (ohne zu speichern) geschlossen habe, wird der Applications.quit Befehl nicht mehr ausgeführt (der steht ja im Workbook, was schon zu ist).

Ich suche genau dafür einen Weg dieses Problem zu umgehen.

Gruß

V A T

 

Hallo VAT,

es gibt überhaupt keinen Speichern-Befehl im Code!

Aber ich ahne jetzt, was Du meinst:

ActiveWorkbook.Saved = True setzt lediglich das Kennzeichen, dass die Datei gespeichert ist, auf WAHR (egal, ob etwaige Änderungen gespeichert sind oder nicht). Genau das bewirkt, warum keine Nachfrage zum Speichern kommt, wenn die Mappe beim Schließen der Instanz ebenfalls den Befehl zum Schließen erhält.

Grüße
EarlFred

 

Hallo EarlFred,

alles klar, genau das war mein Denkfehler. Ich dachte, dass da wirklich gespeichert wird, aber es wird nur das Kennzeichen auf gespeichert gesetzt.

DAS erklärt alles! :-)

Vielen Dank für Deine Hilfe und für deine Transferleistung zu erkennen, was ich falsch verstanden hatte. Du hast mich auf den rechten Weg geführt... ;-)

Bye

V A T

 

Hallo zusammen,

habe ein ähnliches Problem, und sehe wahrscheinlich den Wald vor lauter Bäumen nicht. Ich übergebe über eine Access Datenbank einen Loggoffflag an Excel. In der Excel Datei werden Daten von Access Abgerufen und Aufbereitet.
Um sicher zu stellen wenn probleme auftreten in Access, sollte ein Automatisches schließen, die Excel Datei von Access trennen, das wieder die Backend Datei freigegeben wird.
Soweit so gut, Flag in Excel per Datenaktualisierung integriert !!!
In Zelle A5 (=WENN(A2=1;Makroaufruf();"nichts")) eingetragen.

in VBA Modul1 aufgemacht

dies als code eingetragen

Function Makroaufruf()

MeinMakro

End Function

Sub MeinMakro()


ThisWorkbook.Close Saved = False

MsgBox "Die Bedingung ist erfüllt!"

End Sub
Nach abarbeiten des Makros erscheint die Meldung
"Die Bedingung ist erfüllt erscheint"
so sollte es ja sein (zum Test), aber Excel wird nicht geschlossen
wenn ich manuell Makro anstosse, wird Excel ohne probleme geschlossen.

Nicht erschrecken soll so sein das nichts abgespeichert wird, weil Daten bei jedem Start neu eingelesen werden.

Gruß