Excel Hiperenlace de actualización masiva

Question

Tengo una hoja de cálculo con miles de filas. Cada fila contiene un hipervínculo con una ruta.

La ruta no es válida, sin embargo se puede reparar fácilmente al reemplazar la primera parte con el valor correcto.

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

Needed: P:\SystemHelp\index.html 

El problema es que la función Buscar/Reemplazar estándar no "ve" el contenido de los hipervínculos.

¿Es la única manera de escribir una macro o hay otra manera de hacerlo?

Answer 1

No sé de otra manera además de una macro. Pero parece que alguien already wrote one para hacerlo.

Answer 2

Hola cnx.org, forma de reinventar la función Reemplazar.

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 

Answer 3

Otra forma es insertar un 'carácter por lo que es todo el texto, a la búsqueda y reemplazo y luego ir a través y eliminar los' caracteres.

Answer 4

No hay necesidad de una macro

Advertencia: Algunas cosas como gráficos, etc se puede perder, sin embargo fórmulas y formatos parecen ser preservado.

• guardar el documento como Hoja de Cálculo XML

• Abrir el archivo con el Bloc de notas

• "Reemplazar todo" de "cadena de texto incorrecto" a "cadena de texto correcta"

• Guardar

• Abra el archivo con Excel

• Guardar el documento en formato original