Verknüpfung mit neuem Server

Forumthread: Verknüpfung mit neuem Server

12.12.2005 16:51:43

Ilja

Hallo ,
gibt es ein Tool oder Script, welches alle Verknüpfungen in einem Excelsheet zu anderen Sheets der Form \\server1\excel\test.xls in \\server2\excel\test.xls umwandelt. Ich habe ca. 200 Excel-Dateien, die sich nach einem Serverumzug nicht mehr Starten lassen bzw. die die Verknüpfungen nicht mehr finden. Pro Datei sind das 3-5 Verknpüfungen.
Danke für einen Tip.
Ilja

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verknüpfung mit neuem Server

12.12.2005 17:06:17

Hajo_Zi
AW: Verknüpfung mit neuem Server

12.12.2005 17:26:27

UweD

AW: Verknüpfung mit neuem Server

12.12.2005 17:06:17

Hajo_Zi

Hallo Ilja,
eine Möglichkeit von Hand. Bearbeiten, Verknüpfungen, Quelle wechseln.

AW: Verknüpfung mit neuem Server

12.12.2005 17:26:27

UweD

Hallo
angenommen die Dateien liegen alle in einem Verzeichnis..
Hier ein Ansatz.. Kann nicht weiter testen, da mir die Testdateien fehlen.


Sub alle_Dateien_Verzeichnis() '
Dim strPath$, strExt$, strFile$, Alt$, Neu$, Z
strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls"       'Dateiextension ggf. anpassen
Alt = "\\server1\"
Neu = "\\server2\"
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
On Error GoTo Fehler
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile 'öffnet die Datei
For Each Z In Cells.SpecialCells(xlCellTypeFormulas, 23) 'Alle Zellen mit Formeln
Z.Formula = Application.Substitute(Z.Formula, Alt, Neu) 'tauscht aus
Next
Workbooks(strFile).Close savechanges:=True   'Datei schließen
strFile = Dir() ' nächste Datei
Loop
End If
Exit Sub
Fehler:
If Err.Number = "1004" Then 'keine Formeln enthalten
'nichts
Else
MsgBox " Fehler" & Err.Number & " " & Err.Description & " in Datei " & strPath & strFile
End If
Err.Clear
Resume Next
End Sub

Der errorhandler springt bei mir beim Testen noch zu oft an. da mußt du noch nachbessern.
Gruß UweD
(Rückmeldung wäre schön)

Forumthread: Verknüpfung mit neuem Server

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread