2010-05-10 36 views
12

Binlerce satırlık bir e-tablom var. Her satır bir yolu olan bir köprü içerir. Excel Köprü toplu güncelleştirmesi

yol

doğru değer ile bu ilk bölümünü değiştirerek, ancak kolayca düzeltilebilir, geçerli değildir.

Example: current hyperlink: F:\Help\index.html 

Needed: P:\SystemHelp\index.html 

Sorun, standart Bul/Değiştir seçeneğinin köprüler içeriğini "görmemesi" dir.

Makro yazmanın tek yolu ya da başka bir yolu var mı?

+1

kullandığınız Excel hangi sürümünü? Excel 2000'de (9.0.3821 SR-1) –

+0

Excel 2010'da köprüler bul/Değiştir benim için çalışır, ve köprüün adres kısmını görülebilir kısım – IMHO

+0

Ah değiştirmem gerekiyor. DCP'nin cevabı işe yarıyor mu? –

cevap

6

Makro dışında başka bir yol bilmiyorum. Ama bunu yapmak için birileri already wrote one gibi görünüyor.

+0

kabul çalıştı eğer burada gönderme olacak. makro hiçbir değişiklik yapmadan çalıştı (Excel 2010) – IMHO

+0

Bunun da çalıştığını doğrulayabilirim. Sadece yaptım. Tanrıya şükür… – canadmos

9

Hey cnx.org, Değiştir işlevini yeniden icat etme yolu.

Sub FindReplaceHLinks(sFind As String, sReplace As String, _ 
    Optional lStart As Long = 1, Optional lCount As Long = -1) 

    Dim rCell As Range 
    Dim hl As Hyperlink 

    For Each rCell In ActiveSheet.UsedRange.Cells 
     If rCell.Hyperlinks.Count > 0 Then 
      For Each hl In rCell.Hyperlinks 
       hl.Address = Replace(hl.Address, sFind, sReplace, lStart, lCount, vbTextCompare) 
      Next hl 
     End If 
    Next rCell 
End Sub 

Sub Doit() 

    FindReplaceHLinks "F:\help\", "F:\SystemHelp\" 

End Sub 
+1

+1 (zarif) kod eklemek için – Praesagus

0

bir başka yolu 'bütün metindir bu yüzden arama, karakter ve değiştirme ve daha sonra geçmesi ve kaldır' eklemek karakterleri etmektir.

+0

Bazı bağlantılarda çalıştı ama hepsi değil. Dizeler değiştirildi, ancak tüm köprüler değil, sadece görünüşte rasgele olanlar. – Caimen

7

makro

Uyarı gerek yoktur: vb grafikler gibi bazı şeyler, kaybolmuş olabilir ancak formüller ve formatlar korunmuş gibi görünüyor.

  • XML Yayılması Tablosu

  • Açık

  • "yanlış metin dizesi" dan "Tümünü değiştir" Not Defteri

    dosya olarak kaydedin "Doğru metin dizesi"

  • için

  • 012 Excel ile

  • Açık dosyayı kaydedin Orijinal biçiminde

  • kaydet belge