Office: Makro,das eine Datei aktualisiert und wieder schließt

Hallo,

habe folgendes Problem.Arbeite mit mehreren Excel-Mappen, die miteindander verknüpft sind. Ich steuere praktisch über eine Excel-Mappe die Anderen.Damit eine Änderung in der Steuermappe in anderen Mappen wirksam wird, muss ich wieder alle Dateien öffnen und die Aktualisierungs-Abfrage bejahen und wieder die Datei sichern und schließen.Da der Arbeitsspeicher überlastet ist (Dateien sind meist über 25 MB groß) kann ich nur max. 4 Dateien auf einmal öffnen.
Gibt es eine Möglichkeit Excel zu sagen aktualisiere und schließe die Datei sofort wieder, damit der Arbeitsspeicher nie überlastet wird. Ich könnte damit all die Dateien, die aktualisiert werden sollen, auswählen und Excel im Hintergrund arbeiten lassen.
Eigentlich geht es mir nur noch um den Schritt automatisches Speichern und wieder Schließen, denn über Extras/Optionen/Bearbeiten kann man ja das bestätigen von Aktulisierungen für eine Datei steuern.

Gibt es da eine Lösung ?

Bedanke mich im Voraus.

 

Hallo!

Dieser Code öffnet die angegebene Mappe, aktualisiert die Verknüpfungen, speichert sie und schließt sie wieder.

Code:

Sub Test()
Dim Mappe As String
Mappe = "E:\Test\Test\Mappe2.xls"
Workbooks.Open Filename:=Mappe, UpdateLinks:=3
ActiveWorkbook.Close SaveChanges:=True
End Sub

 

Vielen Dank für die schnelle Antwort.
Habe den Code in ein Formular mit einem Button abgelegt,welches ich automatisch beim Öffnen der Datei anzeigen lasse.
Allerdings würde ich gerne dynamischer arbeiten was die Auswahl der zu aktualisierenden Datei betrifft. Würde gerne über ein Fesnter (wie bei "Datei öffnen"-Explorer Fenstern) mehrere Dateien mit Strg auswählen und aktualisieren lassen.
Es ist eine Weile her als noch etw. programmiert habe.Aber eine Lösung wäre doch,dass man erst abfrägt wieviele Datein aktualisiert werden sollen.Dann mit einer Schleife der Anzahl entsprechend Variablen generieren und mit getText() diesen den Pfad zuweisen.

Oder haben Sie bessere Lösung?

 

Hallo!

Dann teste mal dies:

Code:

Sub Test()
Dim intDat As Integer, DatOP
intDat = 0
DatOP = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*", MultiSelect:=True)
If IsArray(DatOP) Then
For intDat = LBound(DatOP) To UBound(DatOP)
Workbooks.Open Filename:=DatOP(intDat), UpdateLinks:=3
ActiveWorkbook.Close SaveChanges:=True
Next intDat
Else
MsgBox "Sie haben keine Mappe ausgewählt."
End If
End Sub

 

Funktioniert super.
Nochmals viiiielen Dank für schnelle Hilfe.

 

Hallo Schatzi

Ich finde das Makro oben echt toll!

Situation:
Ich muss ca. 30 Excel Datein aktualisieren, jede bracht etwas 2-3 min. bis sie fertig mit den berechnungen ist.

Ich habe nun folgende folgende Probleme:
- Die zu aktualisierende Datei geht so schnell wieder zu das es gar nicht fertig rechnet und somit überall fehlermeldungen erscheinen

- es wäre gut, wenn es eine datei nach der anderen öffnen aktualisieren, speichern und schliessen würde - sind alle gleichzeitig geöffnet ist der Computer überlasstet und es rechnet gar nichts mehr.

Kannst Du mir helfen???

Vielen Dank im Voraus
Anfänger2008

 

Hallo!

Sorry, aber damit kenne ich mich leider nicht aus...
Ich hatte gehofft, dass Excel automatisch solange wartet, bis alles aktualisiert ist, bevor es die Datei wieder schließt. Aber das scheint ja offensichtlich nicht der Fall zu sein.

 

makro

gibt es keinen Befehl den man einbauen kann, damit das excel einen moment wartet??

 

Hallo!

Es gibt z.B.
Application.Wait
und
Application.OnTime
aber da ich damit nicht arbeite, kenne ich mich damit auch nicht aus.
Vielleicht hilft dir eines von beiden.