再次请教关于数据导出到excel的问题，请高手继续赐教！！！

我想把DBGrid中的数据（也可以是SQL中的表的数据）比如说100条记录，那么我想让excel的工作簿中生成100/5=20个sheet，1-5条记录在第一个sheet，6-10条记录在第二个sheet，11-15.............16--20...........95-100在最后一个sheet.
因为我想生成发票，所以最好能较好的控制数据显示的位置，最好跟这段代码的控制数据显示方式相同    
      XLS.ActiveSheet.Cells[4+J,1].Value := qSalebcName.Value;//剂型
      XLS.ActiveSheet.Cells[4+J,2].Value := qSalemcName.Value;//中类
      XLS.ActiveSheet.Cells[4+J,3].Value := qSalepNameMan.Value;//产地
不知道我这个想法能实现嘛？？
请高手赐教，谢谢！！