Datei schließen ohne speichern
13.12.2003 19:48:09
Tom
stoße gerade irgendwie an meine geistigen Grenzen (wohl zu lange am PC gesessen) ;-))
Ich öffne eine Exceldatei, dort werden automatisch mehrere Makros nacheinander abgearbeitet.
Im letzten Makro verweise ich auf das Öffnen einer neuen Excel-Datei. Bis hier läuft alles supergut. Aber jetzt möchte ich NUR die zuerst gestartete Datei ohne speichern wieder schließen, aber die zweite geöffnete Datei MUSS geöffnet bleiben. Hier die Reihenfolge aus der ZUERST geöffneten Datei
Sub alle()
' alle Makros werden nacheinander abgearbeitet
Application.Run "'Konvert.xls'!Datenservercopy"
Application.Run "'Konvert.xls'!lesen"
ActiveWindow.SmallScroll Down:=-105
Application.Run "'Konvert.xls'!ersetzen"
Application.Run "'Konvert.xls'!loeschen"
ActiveWindow.SmallScroll Down:=-42
Application.Run "'Konvert.xls'!Namen_aendern"
Application.Run "'Konvert.xls'!batstarten"
End Sub
In batstarten wird die nächste Datei geöffnet
Sub batstarten()
Workbooks.Open Filename:="E:\ALWIN\Aenderung\ArchivAenderung.xls"
End Sub
Wo muss ich welche Befehle reinschreiben? Ich kriegs irgendwie nicht auf die Reihe
Danke für Eure Hilfe
Gruß Tom