• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: hromadná změna hypertextového odkazu

Zaslal/a whoode 8.8.2014 9:53

Dobrý den, chci se zeptat, jak byste řešili hromadnou změnu hypertextových odkazů?
Přípa- musel jsem si přejmenovat složku, ve které se nachazí 5000 scanů. Bohužel excel zná starej název složky a tím pádem u něj mám neplatnou cestu.. Ručně přepisovat se mi to fakt nechce. Neexistuje nějaký fígl?
Děkuji moc.

Zaslat odpověď >

---

Strana:  1 2   další »

Palooo(8.8.2014 10:16)#020954

slo by to napr. makrom:

ale napisal som ho len tak zbrucha takze netusim ci funguje :) je to na range 1000 riadkou (x) a 100 stlpcou (y)
For x = 1 To 1000
For y = 1 To 100
On Error Resume Next
If Cells(x, y).Hyperlinks.Item(1).Address Like "C:\OldAddress\*" Then Cells(x, y).Hyperlinks.Item(1).Address = Replace(Cells(x, y).Hyperlinks.Item(1).Address, "C:\OldAddress\", "C:\NewAddress\")
On Error GoTo 0
Next
Next


samozrejme treba tam nastavit vlasstne range a to prepisanim x = 1 to 1000 a y = 1 To 100

potom tam prepisat aku cestu ma hladat a za aku ju ma prepisat "C:\NewAddress\" a "C:\OLDAddress\"

pri prepisovani cesty "C:\OldAddress\*" .... tam bacha na hviezdicku ta musi byt nakoncicitovat

whoode(13.8.2014 7:35)#021078

Tak bohužel :-(
Má někdo jiný nápad?citovat

Palooo(13.8.2014 8:36)#021079

dajte prilohu toto musi fungovatcitovat

whoode(13.8.2014 11:40)#021082

Makro

Sub odkazy()
For x = 1 To 100
For y = 1 To 10000
On Error Resume Next
If Cells(x, y).Hyperlinks.Item(1).Address Like "\\hzsmsk.cz\data\org\financni\SMLOUVY\skenované smlouvy\*" Then Cells(x, y).Hyperlinks.Item(1).Address = Replace(Cells(x, y).Hyperlinks.Item(1).Address, "\\hzsmsk.cz\data\org\financni\SMLOUVY\skenované smlouvy\", "\\hzsmsk.cz\data\org\financni\SMLOUVY\skenovane_smlouvy\")
On Error GoTo 0
Next
Next
End Sub


dale se za složkami nachazeji roky a názvy souborů. Je to v Q popř, R sloupci a do nekonecna radku, proto ten range.
Makro samo o sobě proběhne, ale odkaz se nezmění.
Palooo díky moc, za tvůj čascitovat

Palooo(13.8.2014 12:25)#021087

- ten range si mozte zmenit
- skusal som to v testovacom subore a mne to prebehlo bez problemou aj ked sa za cestou nachadzaju dalsie adresare + file

Příloha: 21087_test.zip (13kB, staženo 92x)

citovat

whoode(13.8.2014 12:34)#021089

aplikoval jsem váš kod na muj sobour a nefunguje :-(
Odkazy jsou presne tak
\\hzsmsk.cz\data\org\financni\SMLOUVY\skenovane_smlouvy\2014\soubor.pdf
nebo skenovane_smlouvy\2013\soubor.pdfcitovat

Palooo(13.8.2014 12:46)#021091

whoode napsal/a:

aplikoval jsem váš kod na muj sobour a nefunguje :-(
Odkazy jsou presne tak
\\hzsmsk.cz\data\org\financni\SMLOUVY\skenovane_smlouvy\2014\soubor.pdf
nebo skenovane_smlouvy\2013\soubor.pdf

a prepise sa vam ta cesta??

alebo prepisana cesta nefunguje?

skuste editovat hyperlink a tam sa pozrite aku tam mate cestu

... podla mna bud mate zle napisanu staru castu (ktora sa musi zhodovat s aOldName) alebo nova cesta nieje spravne napisana

... popripade predpripravte nejaky testovaci subor a poslite ho ... takto mozem len hadat v com je problemcitovat

whoode(13.8.2014 12:50)#021092

Cestu kopíruji, tam chyba nebude
Odkaz se mi nepřepíše právě vubec.
Du vytvořit nějaký testcitovat

whoode(13.8.2014 13:02)#021093

zde je link: http://leteckaposta.cz/661213043citovat

Palooo(13.8.2014 13:14)#021094

v tom pokusnom file nieje ziaden hyperlinkcitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse