Need help extracting Excel embedded object

HCL Domino Domino Forum
1

I need a some help extracting excel embedded objects from documents. The resulting .xls files are blank. Word docs and powerpoints extract correctly. These files and documents are old; created 10 years ago. Below is the extracting segment of my code. Thx, David.

If doc.HasEmbedded Then

If Isarray(doc.EmbeddedObjects) Then

i=1

Forall o In doc.EmbeddedObjects

Select Case o.Class

 Case "Word.Document.8", "Excel.Sheet.8", "PowerPoint.Show.8"

Set handle=o.activate(False)

Call handle.SaveAs ("C:\export\" + getFileName(doc) + "_EmbeddedObject_" & Cstr(i) & getExt(o.Class))

i=i+1

End Select

End Forall

End If

End If

2

Subject: got it to work

Got it to work by activating the embedded object from the rich text field not the document. Also, I had to set visiblity to true.

If xdoc.HasEmbedded Then

		i=1

		Forall item In xdoc.Items

			If item.type=1 Then 'rich text

				If Isarray(item.EmbeddedObjects) Then

					Forall o In item.EmbeddedObjects

						Select Case  Strleftback(o.Class,|.|)

						Case "Word.Document", "Excel.Sheet", "PowerPoint.Show"

							Set handle=o.activate(True)

							Call handle.SaveAs (pathbase & Level1 & "\"  & Level2 & "\" & branch &  "_EmbeddedObject_" & Cstr(i) & getExt(o.Class))

							i=i+1

						End Select

					End Forall

				End If

			End If

		End Forall

	End If