HTML Text with tags to formatted text in an Excel cell

by

Yes it is possible. In fact let Internet Explorer do the dirty work for you.

MY ASSUMPTIONS

  1. I am assuming that the html text is in Cell A1 of Sheet1. You can also use a variable instead.
  2. If you have a column full of html values, then simply put the below code in a loop

CODE

Sub Sample()
    Dim Ie As Object
    
    Set Ie = CreateObject("InternetExplorer.Application")
    
    With Ie
        .Visible = False
        
        .Navigate "about:blank"
        
        .document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value
        
        .document.body.createtextrange.execCommand "Copy"
        ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("A1")
        
        .Quit
    End With
End Sub

SNAPSHOT

enter image description here

More Related Contents:

  1. Parse HTML content in VBA
  2. using for loop for vba
  3. delete Autofilter Field resullt using the header Name
  4. Somehow it’s not copying [closed]
  5. VBA macro that search for file in multiple subfolders
  6. So, I have 6 “master” files to then divide into 40 separate files
  7. Split comma separated entries to new rows [closed]
  8. Get list of Excel files in a folder using VBA [duplicate]
  9. How do I base64 encode a string efficiently using Excel VBA?
  10. Select first empty cell in column F starting from row 1. (without using offset )
  11. Excel VBA – QueryTable AfterRefresh function not being called after Refresh completes
  12. Excel VBA: AutoFill Multiple Cells with Formulas
  13. VBA.Find and adding a value
  14. excel vba- extract text between 2 characters
  15. Round function in Excel, worksheet function vs VBA
  16. How to continue the code on the next line in VBA
  17. Excel VBA Userform – Execute Sub when something changes
  18. VBA: How to change the value of another cell via a function?
  19. Count the number of rows in another sheet [duplicate]
  20. Getting Excel to refresh data on sheet from within VBA
  21. Range.Find not making a difference between January and November (February and December) in VBA Excel
  22. VBA Password Input with Cancel Function
  23. Finding first blank row, then writing to it
  24. Calling regasm without administrative rights for COM interop in Excel VBA
  25. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  26. How do I activate a specific workbook and a specific sheet?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment