Makro,das eine Datei aktualisiert und wieder schließt :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Makro,das eine Datei aktualisiert und wieder schließt

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

M.P._61
Newbie
Newbie

Anmeldedatum: 03.04.2008
Beiträge: 3

Verfasst am: 03.04.2008, 16:08

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 03.04.2008, 16:27

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

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

M.P._61
Newbie
Newbie

Anmeldedatum: 03.04.2008
Beiträge: 3

Verfasst am: 04.04.2008, 10:26

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?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 04.04.2008, 10:50

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

M.P._61
Newbie
Newbie

Anmeldedatum: 03.04.2008
Beiträge: 3

Verfasst am: 04.04.2008, 11:39

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Bei Klick auf Button soll sich eine a...	maxseidel	Microsoft Excel Hilfe	2	18.07.2008, 12:10
	Autostart Makro und VBA Ausblenden de...	Randy7	Microsoft Excel Hilfe	7	17.07.2008, 18:20
	Kontakte als vcard versenden - nur ei...	griesu	Microsoft Outlook Hilfe	0	17.07.2008, 07:35
	Makro über Commandbutton starten	msdd79	Microsoft Excel Hilfe	2	16.07.2008, 14:44
	Suchen/Ersetzen über Makro	msdd79	Microsoft Excel Hilfe	3	15.07.2008, 15:28

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de