Jetzt bin ich wohl irgendwie an das Objekt gekommen, irgendwie aber auch nicht. Hier erstmal was ich bisher habe
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim var As Variant
Set db = session.Currentdatabase
Set view = db.Getview("Dashboard")
Set doc = view.Getfirstdocument()
Call workspace.Editdocument(False, doc)
Set uidoc = workspace.Currentdocument
Set var = uidoc.Getobject("Microsoft Excel 97-2003 Worksheet")
Set db = session.Currentdatabase
Set viewB = db.Getview("scorecard")
Set docB = viewB.Getfirstdocument()
Set rtitemA = docB.Getfirstitem("scorecard")
Set obj = rtitemA.Getembeddedobject("Scorecard_2012-06-26_Report_verbessert.xls")
Set db = session.Currentdatabase
Set viewA = db.Getview("Dashboard")
Set docA = viewA.Getfirstdocument()
Set rtitemB = docA.Getfirstitem("scorecard_item")