(Excel) Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

Download Excel Class Modules Chilkat Excel Class Modules

' Note: This example requires the Chilkat Bundle license.

' Any string argument automatically begins the 30-day trial.
Dim glob As Chilkat.CkGlobal
Set glob = Chilkat.NewCkGlobal

success = glob.UnlockBundle("30-day trial")
If (success <> True) Then
    Debug.Print glob.LastErrorText
    Exit Sub
End If

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

html = http.QuickGetStr("http://www.intel.com/")
If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim htmlToXml As Chilkat.HtmlToXml
Set htmlToXml = Chilkat.NewHtmlToXml

' Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "utf-8"

' Set the HTML:
htmlToXml.Html = html

' Convert to XML:

xml = htmlToXml.ToXml()

' Save the XML to a file.
' Make sure your charset here matches the charset
' used for the XmlCharset property.
success = htmlToXml.WriteStringToFile(xml,"qa_output/out.xml","utf-8")

Debug.Print "Finished."