第一种方法:当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' );