HTML`XMLObjectImport[“filename”]
Part[Import["ExampleData/PrimeMeridian.html", "XMLObject"], 2, 3, 1, 3, 2]