在 Excel 中将超链接转换为 HTML 代码

Question

我在 Excel 文件中有一列超链接，我想将它们转换为各自的 HTML 代码：

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

我找到了仅提取链接（作为文本）的方法，但我需要将整个 HTML 代码作为文本来替换单元格中的超链接。

我已经搜索和搜索但没有人需要这个答案，我猜。有人可以帮忙吗？

Answer 1

实际上，从Hyperlinks collection object 中拉出.Address 和可选的.SubAddress 是一种相当简单的方法。 .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

选择您要处理的所有单元格并运行例程。如果您选择的任何单元格不包含超链接，它将被忽略。