Office: (Office 2007) Datenquellen mehrere Dateien auf einmal ändern?

Hallo zusammen,

ich habe das Problem, dass wir in unserem Unternehmen eine Änderung am Fileserversystem haben und sich daher diverse Pfade ändern. Viele unserer Excel-Dateien sind über die Jahre gewachsen und wurden untereinander verlinkt. Es betrifft ca. 700 Dateien wo die Pfade zu den Fileservern angepasst werden müssen. Dies manuell zu machen würde ewig dauern, daher die Frage ob es ein Tool gibt, mit dem man die Datenquellen aller Dateien unterhalb eines bestimmten Shares auf einmal anpassen kann?

Das Tool müsste einfach nur nach Pfad A suchen und diesen gegen Pfad B austauschen...

Jemand ne Idee?

Gruß
Miranda

:)

 

keiner ne Idee?

 

Hallo Miranda,

Ideen habe ich schon, aber das ist kein "1-Klick-und-Glücklich"-Tool und auch nicht mal schnell nebenbei geschrieben.

Per VBA alle Dateien eines Verzeichnisses (inkl. Unterverzeichnisse) öffnen, LinkSources auslesen, auf alte Pfadangaben prüfen und ggf. durch neue ersetzen.

Für das Durchforsten von Verzeichnisbäumen gibt's in der Suche ausreichend Ergebnisse. Für letztere Punkte als "Code-Skelett":

Code:

Grüße
EarlFred

 

Hallo EarlFred,

dein Code funktioniert einwandfrei auch unter Excel 2003. Aber bei mir kommt immer 1 mal der Datei öffnen Dialog hoch, wenn er ersetzen will. Kann ich den noch irgendwie abschalten. Wird bei vielen Dateien die gleichzeitig ersetzt werden sollen mit der Zeit doch ziemlich nervig.

Gruss Thomas

 

Hallo Thomas,

wenn Du den Link so änderst, dass er auch auf eine existierende Datei verweist, kommt keine Abfrage.

Ich vermute, dass Du also einen falschen Pfad angibst.

Grüße
EarlFred

 

Hi,
ich habe wohl meine Frage nicht genau genug erstellt. Das keine Frage kommt wenn der Pfad existiert ist klar. Das Problem ist aber das sich die Abteilungsbezeichnung ändert von z.B. X:\AAA in X:\BBB. d.H. entweder besteht der alte Pfad oder der neue. Es kommt darauf an wann ich suche.

Ich möchte das ganze komplett ohne Meldungen machen, also keine Meldung für fehlende oder zu aktualisierende Verknüpfungen beim Öffnen der Datei und keine für das ersetzen. Wenn das überhaupt möglich ist.

Fällt dir dazu noch etwas ein oder muß ich in den sauren Apfel beisen?

Gruss Thomas

 

Hallo Thomas,

dann erweitere den Code um eine Abfrage (mit Dir), ob die verknüpfte Exceldatei existiert und wenn nicht, ändere den Pfad.

Das ganze dann ins Open-Ereignis des Workbooks einbauen.

Dann wird zwar noch die Abfrage kommen, ob die Daten aktualisiert werden sollen, aber das Makro müsste dann rechtzeitig greifen, um gleich die aktuellen Links einzubauen.

Habe es aber nicht getestet, bin grad auch in Eile.

Grüße
EarlFred