将stringgrid表里边的内容输出到execl里边，但是由于字段过多打印的时候不能全部打印，该如何解决？？

[xiaoer123]

将stringgrid表里边的内容输出到execl里边，但是由于字段过多打印的时候不能全部打印出来，
是否能够将sg里边的所有字段输出到execl里边的时候分成两部分，比如在两个不同的sheet里边，该如何解决？？谢谢各位，我的代码如下：（请指教）

//打印输出
Variant V, newxls, sh;
int i,j;
if(SGPatientQuery->Cells[0][SGPatientQuery->RowCount-1]!="")
{
try{
V = Variant::CreateObject("Excel.Application");
}
catch(...)
{
MessageBox(Application->Handle,"启动Excel出错，可能由于Excel没有正确安装！","错误",MB_ICONERROR);
return;
}
V.OlePropertySet("Visible", true);
newxls=(V.OlePropertyGet("Workbooks")).OleFunction("Add");//新建一个工作薄
sh=newxls.OlePropertyGet("ActiveSheet");

V.OlePropertySet("Caption","查询结果输出");
sh.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("Size",11);

for(i=0;i<SGPatientQuery->RowCount;i++)
{
for(j=0;j<SGPatientQuery->ColCount;j++)
{
AnsiString temp = SGPatientQuery->Cells[j][i].Trim() ;
sh.OlePropertyGet("Cells",i+1,j+1).OlePropertySet("Value",(TVariant)temp);
}

}
}