Mass edit hyperlinks in excel

Am o mare problema, nu stiu din ce motiv, aproximativ 400 de hyperlinks dintr-un sheet al unui fisier excel s-au transformat peste noapte din:

Cod:

../Oferte/_directoare_diferite_/nume_fisier.extensie

in

Cod:

../Local%20Settings/Temporary%20Internet%20Files/Content.IE5/Oferte/_directoare_diferite_/nume_fisier.extensie

Evident toate fisierele nu mai pot fi deschise si sa editez manual fiecare fisier in parte nu mi se pare o idee buna.
Mentionez ca hyperlink-ul e sub un text (adica in celula scrie, de exemplu: 100 si dand click pe el se deschide documentul respectiv) si ca sunt facut clasic, fara a folosi functia specifica din excel, adica sunt facut: ctrl+k si aleasa calea.

Am cautat azi pe o gramada de forumuri, multi furnizau niste solutii in vba dar absolut niciuna nu mi-a mers, nu stiu din ce cauze.

Apelez la voi, poate se gaseste vreun craiovean cu mintea luminata sa ma ajute.

Thanks.

Ai facut o filtrare complexa? Stabilesti un criteriu si apoi folosesti o functie care sa iti elimine erorile de caractere aparute peste noapte...nu mai tin minte exact,parca ISERRROR

Eu cel putin asa stiu ca am facut acum cateva saptamani cand am intampinat ceva de genul asta...daca nu e corect imi cer scuze dar nu-mi mai aduc aminte exact ce am facut

absolut toate functiile excel modifica continutul vizibil al celulelor sau ce se afla in campul "formula"

Eu am nevoie sa-mi modifice hyperlinks care nu se afla in niciunul din campurile prezentate mai sus.
Ceea ce-mi trebuie mie e un script visual basic

Uite ce am gasit pe un alt forum dar care nu merge la mine:

Cod:

Sub Test()
old_link = ActiveCell.Hyperlinks(1).Address
Selection.Hyperlinks.Delete
new_link = Replace(old_link, "../Local%20Settings/Temporary%20Internet%20Files/Content.IE5/", "../")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
new_link
End Sub

Damn... sa ma uit sa vad ce am pe acia si te anunt

up, valabil, etc

Are cineva o solutie pt asta?

Mesaj iniţiat de Eros

up, valabil, etc

Are cineva o solutie pt asta?

bah shmechere, de ce nu pot sa iti dau infractiune pt bumping?
Ce, daca esti admin ti-ai scos butonu de infraction?
nah de aici!

Bumping se da numai la Mica Publicitate.

Mai bine pune mana si ajuta-ma ca esti coder expert

In fine, da-l drak de bumping, ideea e ca ORIUNDE la tine nu e butonashu cu cartonashe
Si acum ontopic: coder expert != micro$hit expert

intreaba colegii

Noi folosim Open Office ca nu are firma bani pentru atatea licente de Microsoft Office

si acasa?

Rar mai dau pe acasa

fellow programmers?
(keepin the thread up )

Asta ai incercat: http://www.microsoft.com/communities...r=US&sloc=&p=1
?

aia imi face din:

../Local%20Settings/Temporary%20Internet%20Files/Content.IE5/correct_subpath
..correct_initial_path/Local%20Settings/Temporary%20Internet%20Files/Content.IE5/correct_subpath

Mai exact, imi pune calea corecta dar NU sterge /Local%20Settings/Temporary%20Internet%20Files/Content.IE5

Ia inlocuieste in codul ala:
H.Address = stReplace & Mid(H.Address, Len(stFind) + 1)
cu
H.Address = stReplace & Mid(H.Address, 58)
Desi, e tot al drak cu ce e mai sus. Ar trebui sa mearga

Zi-mi cum arata la tine un hyperlink, cum ar trebui sa arate, si ce bagi tu in casutele replace what si replace with.

Desi nu am facut VB in viata mea, incerc sa o iau logic, si sa modific un pic algoritmul ala:

Cod:

Sub ReplaceHyperlinksInActiveWorkbook()  
  Dim oSheet As Object  
  Dim H As Hyperlink  
  Dim stFind As String  
  Dim stReplace As String  
  stFind = InputBox("What is the initial path to replace?", , "\\Old\")  
  If stFind = "" Then Exit Sub  
  stReplace = InputBox("What should the path become?", , "\\New\")  
  If stReplace = "" Then Exit Sub  
  For Each oSheet In ActiveWorkbook.Sheets  
    For Each H In oSheet.Hyperlinks  
      If InStr(H.Address, stFind) = 1 Then  
H.Address = Replace(H,Address, stFind, stReplace)
      End If  
    Next  
  Next  
End Sub  

Ia vezi cu asta?

nu a mers treaba aia

Eu am asa ceva:
../Local%20Settings/Temporary%20Internet%20Files/Content.IE5/Oferte/Prodicon/numefisier.pdf

si imi trebuie asa:

../Oferte/Prodicon/numefisier.pdf

nota: dupa oferte sunt directoare diferite, vreo 10


Eu am bagat asa la old:

../Local%20Settings/Temporary%20Internet%20Files/Content.IE5/Oferte/

si la new:
../Oferte/

btw, daca prima varianta facea ce facea ce am zis mai sus, asta a doua nu face nimic

Nu merge pt ca am gresit eu cand am tastat, mm.
Nu e: H.Address = Replace(H,Address, stFind, stReplace)
Corect: H.Address = Replace(H.Address, stFind, stReplace)