Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel-Dateien mit externen Verknüpfungen automatisch finden

Frage Microsoft Microsoft Office

Mitglied: illbert

illbert (Level 1) - Jetzt verbinden

12.08.2008, aktualisiert 12:19 Uhr, 12279 Aufrufe, 3 Kommentare

Moin allerseits,
das Problem ist so alt wie Excel selbst. Ein Verzeichnisauf einem Fileserver, das u.A. Unmengen Excel-Dateien enthält, soll verschoben werden. Nun sind ja Excel-Dateien gerne untereinander verknüpft oder enthalten Verbindungen zu anderen Dateien wie z.B. Query-Dateien, etc.

Meine Frage ist, wie man solche Kandidaten vorab, möglichst automatsich, identifiziert, um nicht später mit einem Haufen kaputter Dateien dazustehen, die dann mühsam wieder repariert werden müssen, sofern überhaupt möglich.

Ideal wäre ein Tool, dass einen Ordner inkl. Unterordnern durchsucht und die Excel-Dateien entsprechend checkt und katalogisiert. Gibt es so was?
Andere Lösungsvorschläge?

Schon mal vielen Dank vorab
illbert
Mitglied: bastla
12.08.2008 um 11:39 Uhr
Hallo illbert und willkommen im Forum!

Das folgende VBScript (auf Basis einer "Inspiration" durch einen Beitrag auf www.Office-Loesung.de - Verknüpfungen auslesen) sollte als Ergebnis eine Textdatei (Speicherort siehe Zeile 2) in folgendem Format liefern:
01.
Pfad der Excel-Datei <TAB> Pfad der ersten Verknüpfung[;Pfad jeder weiteren Verknüpfung]
Da Du hinsichtlich der "Katalogisierung" keine genaueren Vorstellungen geäußert hast, schien mir diese Form sinnvoll - damit kannst Du zB einen Import in Excel durchführen (TAB als Trennzeichen) und erhältst die Dateien in der ersten und die Verknüpfungen in der zweiten Spalte, welche Du, anhand des Semikolons, mit "Text in Spalten..." bei Bedarf noch weiter aufteilen kannst.

Eigentlich sollten ja nur Verknüpfungen zu einem anderen Ordner Probleme bereiten - daher werden die Verknüpfungsziele in der Liste mit relativem Pfad angegeben (soferne sie sich im selben Ordner oder in einem Unterordner befinden). Wenn alle Pfade absolut gewünscht wären, einfach den entsprechenden Schalter in Zeile 3 auf "False" setzen.

Aufgerufen werden kann das Script per Doppelklick - dann wird der in Zeile 1 festgelegte Startordner verwendet, oder per Drag & Drop des gewünschten Startordners auf die Scriptdatei.
01.
StartOrdner = "D:\DeinOrdner" 'Default 
02.
LogFile = "D:\Verknüpfungen.txt" 'Ergebnisdatei 
03.
Rel = True 'Relative Pfade verwenden? 
04.
 
05.
If WScript.Arguments.Count > 0 Then StartOrdner = WScript.Arguments(0) 
06.
Set fso = CreateObject("Scripting.FileSystemObject") 
07.
Set L = fso.CreateTextFile(LogFile, True) 
08.
Set XL = CreateObject("Excel.Application") 
09.
DoFolder fso.GetFolder(StartOrdner) 
10.
XL.Quit 
11.
L.Close 
12.
 
13.
Sub DoFolder(Folder) 
14.
If LCase(Folder.Name) <> LCase("System Volume Information") Then 
15.
	FolderPath = Folder.Path 
16.
	If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath & "\" 
17.
	For Each File In Folder.Files 
18.
		If LCase(Right(File.Name,4)) = ".xls" Then 
19.
			Links = XL.Workbooks.Open(File.Path,0).LinkSources(1) 
20.
			XL.ActiveWorkbook.Close 0 
21.
			If Not IsEmpty(Links) Then 
22.
				LinkListe = Join(Links, ";") 
23.
				If Rel Then LinkListe = Replace(LinkListe, FolderPath, "", 1, -1, vbTextCompare) 
24.
				L.WriteLine File.Path & vbTab & LinkListe 
25.
			End If 
26.
		End If 
27.
	Next 
28.
	For Each SubFolder In Folder.SubFolders 
29.
		DoFolder(SubFolder) 
30.
	Next 
31.
End If 
32.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: illbert
12.08.2008 um 12:19 Uhr
Hallo bastla,
das sieht ja schon mal cool aus - vielen Dank für deine Hilfe
Bzgl. der Katalogisierung würde ich mir einfach eine Liste der betreffenden Dateien mit Pfad wünschen. Im Idealfall auch noch, auf welche externen Dateien sie zeigen.

Ciao
illbert

Nachtrag
Ich habe vorhin mal getestet. Im prinzip macht das Skript genau, was ich erwarte. Ich habe nur leider zwei Probleme damit:

- ist eine Excel-Datei geschützt, schmiert das Skript ab.
- Beim Ausführen der workbook.open-Methode werden offenbar in den Dateien enthaltene Makros ausgeführt. Aber zumindest schon mal eine gute Arbeitsgrundlage

Ciao
illbert
Bitte warten ..
Mitglied: Jasmine
23.05.2011 um 17:03 Uhr
Hallo,

für alle die noch unter kaputten Office Verknüpfungen leiden: Wir haben unsere Datenmigration mit MigrateLink durchgeführt:

www.firstattribute.com

Der LinkInspector zum Analysieren der vorhandenen Verknüpfungen ist kostenlos.

Ciao J.
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel 2016 - Verknüpfung zu anderer Excel Datei automatisch aktualisieren (2)

Frage von devil7974 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA - Inhalte und Dateiname von txt-Dateien automatisch in Excel importieren (2)

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Registerkarte in Excel automatisch färben (14)

Frage von ralfkausk zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Datei automatisch , jede Woche , an bestimmten Drucker ausdrucken. (7)

Frage von tomigun zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...