Cuestión : ¿Cómo poner al día enlaces hipertexto en Excel 2003?

Tengo un usuario que tenga un archivo de Excel con una columna para los enlaces hipertexto. Estos acoplamientos señalan a una localización en nuestro servidor de archivos. Debido a la consolidación del servidor habíamos movido los datos a otro servidor. Ahora los acoplamientos en el archivo del sobresalir necesitan ser puestos al día. Hay alrededor 2000 líneas de acoplamientos que señalan todo al mismo servidor pero a diversas localizaciones. Para eg. Row1 --> \ \ departamento \ prod.pdf,
Row2 del serverx \ de los activos --> \ \ serverx \ área remota \ prod2.pdf. ¿

Is allí manera de poner al día todos los acoplamientos con el nuevo servername?

class= del

Respuesta : ¿Cómo poner al día enlaces hipertexto en Excel 2003?

No está completamente claro cómo está presentado pero intentar el siguiente que substituye el serverx por el servery para todos los enlaces hipertexto en el activesheet.

Substituir obviamente las secuencias del bothe en el submarino para los valores reales requeridos

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

redirectLink secundario ()
Rng dévil como gama

    Para cada rng en ActiveSheet.UsedRange.Cells
        Si rng. Hyperlinks.Count = 1 entonces
            Con el rng. Enlaces hipertexto (1)
                . La dirección = substituye (. Dirección, “ServerX”, “ServerY”, 1, vbTextCompare)
                .TextToDisplay = substituyen (.TextToDisplay, “ServerX”, “ServerY”, 1, el vbTextCompare)
            Extremo con
        Terminar si
    Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us