'参考 Private Sub Command1_Click() WebBrowser1.navigate "money.www.infoseek.co.jp/MnStock/sranking.html?t=r&k=r&m=A" End Sub Private Sub Command2_Click() Dim doc As MSHTML.IHTMLDocument3 Set doc = WebBrowser1.document PrintChildren "", doc.documentElement End Sub Private Sub PrintChildren(ByVal tabs As String, ByVal node As MSHTML.IHTMLElement) Dim e As MSHTML.IHTMLElement Debug.Print tabs; "<"; node.tagName; ">" '& node.innerText For Each e In node.children 'MSHTML.IHTMLElementCollection PrintChildren tabs & vbTab, e Next e End Sub