Read the content of an Excel object embedded in a Word document (Views: 29)
Problem/Question/Abstract: I have an Excel object in a Word document. I want to read the content of the Excel object from my Delphi program. How can I do that? Answer: { ... } var AWordApplication: WordApplication; AWordDocument: WordDocument; AWorkBook: ExcelWorkBook; AWorkSheet: ExcelWorkSheet; AInlineShape: InlineShape; AFileName: OleVariant; TrueParam: OleVariant; begin AWordApplication := CoWordApplication.Create; try FalseParam := False; AFileName := 'c:\wordexcel.doc'; AWordDocument := AWordApplication.Documents.Open(AFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); AInlineShape := AWordDocument.InlineShapes.Item(1); AInlineShape.Activate; AWorkBook := AWordDocument.InlineShapes.Item(1).OLEFormat.Object_ as ExcelWorkBook; AWorkSheet := AWorkBook.ActiveSheet as ExcelWorkSheet; ShowMessage(AWorkSheet.Cells.Item[2, 1].Text); finally AWordApplication.Quit(FalseParam, EmptyParam, EmptyParam); AWordApplication := nil; AWordDocument := nil; end; end; |