Как работать с объектом Excel вставленном в Word документ?

Previous  Top  Next

    
 

 

 

Code:

{ ... }

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;

 

©Drkb::04428

Взято с Delphi Knowledge Base: http://www.baltsoft.com/