Workbooks.Close funzt nicht
Schorschi
ich benötige BITTE Euere Hilfe....
Vorgang:
Auszug aus der Microsoft Visual-Basic Hilfe
Workbooks (Eigenschaft)
Das folgende Beispiel schließt sämtliche Arbeitsmappen und speichert die
darin vorgenommenen Änderungen, mit Ausnahme der Arbeitsmappe,
aus der das Makro ausgeführt wird.
Dim w As Workbook()
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
w.Close savechanges:= false
End If
Next w
End Sub
Code-Änderung: w.Close savechanges:= false von true auf false
Beispiel-Umsetzung:
1. VBA-Code befindet sich in der Arbeitsmappe Beispiel.xls
Die Code-Ausführung erfolgt über einen CommandButton.
Die Arbeitsmappe Beispiel.xls wird als erstes geöffnet.
Über den Befehl Neues leeres Dokument werden neue xls.Arbeitsmappen erzeugt/geöffnet
und über Datei Öffnen werden weiter xls.Arbeitsmappen geöffnet.
Erfolgt nun ein Klick auf den CommandButton so werden die Arbeitsmappen mit Ausnahme
der Arbeitsmappe Beispiel.xls geschlossen.
Problem:
Im VBA Projekt-Explorer sind sie weiterhin sichtbar?
2. VBA-Code befindet sich in der Arbeitsmappe Beispiel.xls
Über den Explorer werden xls.Arbeitsmappen geöffnet.
Dann wird die Arbeitsmappe Beispiel.xls geöffnet.
Erfolgt nun ein Klick auf den CommandButton so werden keine Arbeitsmappen geschlossen.
Werden wie Oben xls.Arbeitsmappen aus der Arbeitsmappe Beispiel.xls heraus über den Befehl
Neues leeres Dokument erzeugt/geöffnet, werden diese aber geschlossen?
Beim Schließen der Datei erscheint eine Meldung:
funcres, Kennwort: , Buttons (OK, Abbrechen)
Diese verschwindet erst nach 3 x Abbrechen!!!
Vielen Dank für Euere Hilfe
Gruss
Schorschi