获取具体的网站数据到Excel单元格

我是vba的新手，并试图编写一个代码，从下面的网站提取一些特定的数据到excel http://www.sec.gov/Archives/edgar/data/1646124/000114036115025436/xslFormDX01/primary_doc.xml

例如，我想提取一些具体的数据，如公司名称，证券types，发售和销售金额，澄清回复（如果有必要），申报types，首次销售date等。上面的url到不同的Excel单元格，但在同一行。

我有下面的代码，但我不明白如何使用它为我的目的..

Sub GetData() Dim IE As New InternetExplorer IE.navigate "kieskeurig.nl/zoeken/index.html?q=4960999543345" IE.Visible = False Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim doc As HTMLDocument 'variable for document or data which need to be extracted out of webpage Set doc = IE.Document Dim dd As Variant dd = doc.getElementsByClassName("lgn")(0).outerHtml 'Range("a1").Value = dd End Sub 

Answer 1

 Sub GetData() Dim IE As New InternetExplorer IE.navigate "http://www.sec.gov/Archives/edgar/data/1646124/000114036115025436/xslFormDX01/primary_doc.xml" IE.Visible = False Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Application.Wait (Now() + TimeValue("00:00:016")) Dim doc As HTMLDocument Set doc = IE.document Dim dd As Variant dd = doc.getElementsByClassName("lgn")(0).outerHtml 'Range("a1").Value = dd MsgBox dd End Sub