怎么在一个EXCEL表里面创建多个sheet页？

Question

怎么在一个EXCEL表里面创建多个sheet页？并把数据导入到相应的sheet页？譬如：我从SQL查询到有100条数据纪录，我要把这100条数据导入这个EXCEL表格，每10条数据存放到一个sheet页，
也就要生成10个相应的 sheet页（sheet1，sheet2，sheet3,sheet4,sheet5,sheet6,sheet7,sheet8,sheet9,sheet10)这10页。该如何生成？
请达人指导一下，分数不多，这是我全部的分了。
线上等比较急的 
最有生成的代码我对EXCEL不是很熟悉，只要求生成10个表就OK，当然带导入数据的代码我更欢迎。

Answer 1

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      WideString theXls;
      theXls=ExtractFilePath(Application->ExeName) +"book.xls";
      TCOM_Application iExcelApp;            //#include           "Excel_2K_SRVR.h"
      iExcelApp=CoExcelApplication::Create();
      iExcelApp->set_Visible(0,true);      Workbooks *ibooksPtr;
      iExcelApp->get_Workbooks(&ibooksPtr);
      ibooksPtr->Close(0);
      ibooksPtr->Open(theXls.c_bstr(),
      TNoParam(),TNoParam(),TNoParam(),TNoParam(),
      TNoParam(),TNoParam(),TNoParam(),TNoParam(),
      TNoParam(),TNoParam(),TNoParam(),TNoParam(),
      0);      _Workbook * ibookPtr;
      ibookPtr=iExcelApp->get_ActiveWorkbook();
      Sheets* isheetsPtr;
      isheetsPtr=ibookPtr->get_Worksheets();
      IDispatch* x;
      isheetsPtr->Add(TNoParam(),TNoParam(),TVariant(3),TNoParam(),0,&x);//3是加3张表，1是1张                ShowMessage("关闭");                                                             isheetsPtr->Release();
      ibookPtr->Release();
      ibooksPtr->Release();
      iExcelApp->Quit();
}

Answer 2

ExcelApp.worksheets[2].activate;
每copy一个页面的数据进去再生成一个新的worksheets，一个for 循环搞定

Answer 3

建议楼主多看看EXCEL的宏,了解了宏的代码..那么你今后让EXCEL怎么为你服务就怎么服务