change UNC path of multiple hyperlinks

[Guest]

Is there anyway of changing the server name of the UNC path on a hyperlink,
within an excel sheet, after migrating a file server a few excel workbooks
which have multiple hyperlinks in each sheet have not automatically updated
to reflect the new server name.

Can this be changed without having to manually update each link which will
take forever?

 

[Guest]

You should be able to change them with code which shouldn't take forever.

Do it manually one time to a single hyperlink with the macro recorder turned
on to get the basic code.

 

[Dave Peterson]

Take a look at David McRitchie's site:
http://www.mvps.org/dmcritchie/excel/buildtoc.htm
look for:
Fix Hyperlinks (#FixHyperlinks)

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Guest]

Hi Tom,

Thanks for the quick reply, recording the macro gave me the code of what
happens when 1 cell is changed, for which I can easily change the range for;
however the full hyperlink address is then placed within the marco, which I
do not want. Each link may point to different share's on this new server.

Is it possible to only change the server name that the UNC is relative to
and not the full path?

 

[Guest]

I would try something like this:

Sub ChangeLink()
Dim hlink As Hyperlink
Dim s As String
For Each hlink In ActiveSheet.Hyperlinks
s = hlink.Address
If InStr(1, s, "//Server1", vbTextCompare) Then
s = Replace(s, "//Server1", "//Server2")
hlink.Address = s
End If
Next
End Sub


Test his on a copy of your file.

 

[Guest]

Tom,

Thanks very much for that the code worked (with a slight mod); specifing the
server name with forward slash's ( / ) failed to update the links but simply
changing these to back slash's ( \ ) as per below works at treat...

Sub ChangeLink()
Dim hlink As Hyperlink
Dim s As String
For Each hlink In ActiveSheet.Hyperlinks
s = hlink.Address
If InStr(1, s, "\\Server1", vbTextCompare) Then
s = Replace(s, "\\Server1", "\\Server2")
hlink.Address = s
End If
Next
End Sub

Thaks very much for the quick response, you have saved me a whole load of
hassle.

 

[Guest]

I can never remember which way they lean <g>