怎么在一个EXCEL表里面创建多个sheet页？
怎么在一个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，当然带导入数据的代码我更欢迎。。。。
[解决办法]
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();
}
[解决办法]
ExcelApp.worksheets[2].activate;
每copy一个页面的数据进去再生成一个新的worksheets，一个for 循环搞定
[解决办法]
建议楼主多看看EXCEL的宏,了解了宏的代码..那么你今后让EXCEL怎么为你服务就怎么服务
