Convert Гиперссылки в HTML-код в Excel

Question

У меня есть столбец гиперссылок в файле Excel, и я хочу, чтобы преобразовать их в соответствующий HTML код:

<a href="http://www.example.com">Link Name</a> 

Я нашел способ извлечь ссылку только (в виде текста), но мне нужен весь HTML-код в виде текста, чтобы заменить гиперссылку в ячейке.

Я искал и искал, но никто не нужен этот ответ, я думаю. Может кто-нибудь помочь?

Answer 1

На самом деле довольно простой способ вытащить .Address и дополнительно .SubAddress от Hyperlinks collection object. Свойством .TextToDisplay является просто значение или текст ячейки.

Sub html_anchors() 
    Dim a As Range, u As String, l As String 
    Dim sANCHOR As String: sANCHOR = "<a href=""%U%"">%L%</a>" 

    For Each a In Selection 
     With a 
      If CBool(.Hyperlinks.Count) Then 
       l = .Text 
       u = .Hyperlinks(1).Address 
       If Right(u, 1) = Chr(47) Then u = Left(u, Len(u) - 1) 
       .Hyperlinks(1).Delete 
       .Value = Replace(Replace(sANCHOR, "%U%", u), "%L%", l) 
      End If 
     End With 
    Next a 
End Sub 

Выберите все ячейки, которые вы хотите обработать, и запустите процедуру. Если какая-либо ячейка в вашем выборе не содержит гиперссылки, она будет проигнорирована.