現状ではExcel等に取り込んで行うのが手軽です。

補足

<マクロの例>

以下のマクロは、「有報キャッチャー」で入手できる、XBRLデータを変換したExcelデータを利用するものです。
次のような手順で実行可能です。
--------------------------------------------------
1.「有報キャッチャー」（http://www.ufocatch.com/）から有価証券報告書のXBRLデータをExcelに変換したものをダウンロードする。
2.ダウンロードしたExcelファイルをCドライブ直下に置く。
3.createList()を実行
--------------------------------------------------
「2011-06-20_E04463.xls」の形式で書かれている部分が、実際にサイトからダウンロードしたファイル名です。E04463の部分がEDINETコードになります。

Sub createList()
Set sheet = Workbooks.Add.Sheets(1)
sheet.Range(Cells(1, 2), Cells(1, 3)).Value = Array("営業収益", "ROE")
Call importData("会社A", "C:\2011-06-20_E04463.xls", sheet, 2)
Call importData("会社B", "C:\2011-06-29_E04426.xls", sheet, 3)
Call importData("会社C", "C:\2011-06-17_E04425.xls", sheet, 4)
End Sub

Sub importData(company As String, file As String, sheet As Variant, row As Integer)
Set target = Workbooks.Open(file)
sheet.Cells(row, 1) = company
sheet.Cells(row, 2) = getValue(target.Sheets("損益計算書等"), "営業収益合計")
netIncome = getValue(target.Sheets("損益計算書等"), "当期純利益")
shareholdersEquity = getValue(target.Sheets("貸借対照表"), "株主資本合計")
sheet.Cells(row, 3) = netIncome / shareholdersEquity
End Sub

Function getValue(s As Variant, k As String) As Variant
Set cap = s.Cells.Find(What:=k, LookAt:=xlWhole)
For i = 1 To 20
newVal = s.Cells(cap.row, cap.Column + i)
If newVal = "" And old <> "" And IsNumeric(old) Then
getValue = old
Exit Function
End If
old = newVal
Next
End Function