Shog9
Shog9
Programming language:Html
2021-05-21 01:33:29
0
Q:

excel vba HTML text with tags to formatted text in an cell

Tom Tregenna
Tom Tregenna
Code: Html
2021-02-28 07:47:00 
Sub TestHTML()
    Const HTML = "<html><p>This <b>bold</b> and <i>italic</i> came from HTML tags.</p></html>"
    Clipboard HTML
    [A1].PasteSpecial "Unicode Text"
End Sub


Function Clipboard$(Optional s$)
    With CreateObject("htmlfile")
    With .parentWindow.clipboardData
        Select Case True
            Case Len(s): .setData "text", s
            Case Else:   Clipboard = .GetData("text")
        End Select
    End With
    End With
End Function
3

Tags

New to Communities?

Join the community