Get data from embedded object

Hi

I’m trying to get data from an embedded Excel file into some fields in the notes document, where the embedded Excel file is. I have tried with the following code, but get the error OLE: Automation object error

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim handle As Variant

Dim CellValue As Variant

Set uidoc = workspace.CurrentDocument

Set handle = uidoc.GetObject( “Excel2”)

Call UIDoc.FieldSetText( “Subject”, Str(CellValue))

Hope you can help me.