v:=createoleobject('excel.application');
v.visible:=true;
v.workbooks.add(getcurrentdir+'/report/paygrp.xls');
st:=v.workbooks[1].worksheets[1];
p:=2;
query2.DisableControls;
Query2.First;
while Query2.Eof=falsedo
begin
p:=p+1;
st.cells[p,1]:=Query2yymm.AsString;
st.cells[p,2]:=Query2deptno.AsString;
st.cells[p,3]:=Query2qty.AsString;
st.cells[p,4]:=Query2othd.AsString;
st.cells[p,5]:=Query2othadd.AsString;
st.cells[p,6]:=Query2rent.AsString;
st.cells[p,7]:=Query2mesw.AsString;
st.cells[p,8]:=Query2total.AsString;
st.cells[p,9]:=Query2avgtotal.AsString;
Query2.Next;
end;
query2.EnableControls;
messagedlg('導出成功',mtinformation,[mbOK],0);
except
messagedlg('導出錯誤',mtERRor,[mbOK],0);
abort;
end;