Как скопировать страницу?

Previous  Top  Next

    
 

 

 

Code:

{ ... }

var

After: OleVariant;

Sh: _Worksheet;

begin

Sh := Excel.Worksheets['Sheet1'] as _Worksheet;

After := Excel.Workbooks[1].Sheets[3];

Sh.Copy(EmptyParam, After, lcid);

{ ... }

 

©Drkb::04388

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