Обновление массовой информации Excel Hyperlink

Question

У меня есть таблица с тысячами строк. Каждая строка содержит гиперссылку с контуром.

Путь недействителен, однако его легко устранить, заменив первую его часть на правильное значение.

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

Needed: P:\SystemHelp\index.html 

Проблема в том, что стандарт Find/Replace не «видит» содержание гиперссылок.

Это единственный способ написать макрос или есть другой способ сделать это?

Answer 1

Я не знаю другого способа, кроме макроса. Но выглядит как кто-то already wrote one, чтобы сделать это.

Answer 2

Эй, cnx.org, способ изобретать функцию Заменить.

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

Другой способ вставить «характер, так что весь текст, для поиска и замены, а затем пройти и удалить» символы.

Answer 4

Нет необходимости в макро

Внимание: Некоторые вещи, как графики и т.д., могут быть потеряны, однако формулы и форматы, как представляется, сохраняются.

• Сохранить документ как XML Spread Sheet

• Открыть файл с помощью блокнота

• "Заменить все" от "неправильной текстовой строки", чтобы "правильно текстовая строка"

• Сохранить

• Открыть файл с помощью Excel

• Сохранить документ в оригинальном формате