废话少说先上传代码,自己看吧!
procedure TForm1.Button10Click(Sender: TObject);
var
FExcel:Variant;
FWorkbook:Variant;
FWorkSheet:Variant;
XlsFileName:String;
i,j:Integer;
Field1,field2,Field3,Field4:string;
LastField1,LastField2,Lastfield3,LastField4:string;
savedailog:TSaveDialog;
begin
savedailog:=TSaveDialog.Create(Self);
savedailog.Filter:='Excel files (*.xls)|*.XlS';
if savedailog.Execute then begin
xlsfilename:=savedailog.FileName;
savedailog.Free;
end
else begin
savedailog.Free;
exit;
end;
screen.Cursor := crHourGlass;
Try
FExcel := CreateOleObject('Excel.application');
except
screen.Cursor:=crDefault;
ShowMessage('出错!没有安装Excel软件!');
exit;
end;