Convert Html To Text In Excel

VBA code to convert html to plain text,  this helps us to make the html code readable by stripping all the html tags from the html code and printing/rendering the output of the code. When we have a an Excel sheet with cells containing html. We can batch convert them to plain text. It is possible to remove useless tags and styles from the html  and get the plain text out on the display screen so that it is easy to read for the person who does not know the html language and it also helps in portability of the text.

Referencing to “Microsoft HTML Object library”

As we use the Microsoft HTML  Object Library for the conversion of html code to plain text

Below is a code to convert html to plain text in VBA:

Public Function HtmlToText(ByVal sHTML As String) As String
	Dim iDoc As HTMLDocument
Dim result As String
	Dim paragraphs() As String
	If IsNull(sHTML) 
	Then
		HtmlToText = ""
	Exit Function
End If
result = ""
paragraphs = Split(sHTML, "")
For Each paragraph In paragraphs
	Set iDoc = New HTMLDocument
	iDoc.body.innerHTML = paragraph
	result = result & Chr(10) & Chr(10) & iDoc.body.innerText
	Next paragraph
	HtmlToText = result
End Function

Hope this is helpful when you want to convert html  to plain text. Leave your comments if you like the solution.