delphi关联excel的方法二则

第一种方法：当excel已经打开时

procedure TForm1.Button1Click(Sender: TObject);

var  FExcelApp: Variant;  FSheet: Variant;

begin

FExcelApp:=GetActiveOleObject('Excel.Application');

第一种方法：新创建一个excel应用程序

procedure TForm1.Button1Click(Sender: TObject);

var  FExcelApp: Variant;  FSheet: Variant;

begin

begin  FExcelApp := CreateOleObject( 'Excel.Application' );