c++builder StringGrid导入数据到Excel

[feiyue12300]

大家好，小弟最近碰到个问题一直不能解决，还请大家多多帮忙
这是程序
Variant ExcelApp,Workbook,Sheet;
ExcelApp=Variant::CreateObject("Excel.Application");//创建Excel应用程序对象
ExcelApp.OlePropertySet("Visible",true); //设置应用程序显示
ExcelApp.OlePropertyGet("Workbooks").OleProcedure("Add");//创建工作薄对象相当于子MDI
Workbook=ExcelApp.OlePropertyGet("ActiveWorkbook"); //获取当前工作薄
Sheet=Workbook.OlePropertyGet("ActiveSheet"); //获取当前工作表
Variant Range;//设置操作范围
for(int j=0;j<SG->ColCount;j++) //选取每一列
for(int i=0;i<SG->RowCount;i++) //选取每一行
{

AnsiString StrValue=StringGridA->Cells[j][i];
Sheet.OlePropertyGet("Cells",i+4,j).OlePropertySet("Item",StrValue.c_str());
}
}
看到网上大家基本都是这么做的，可我一直出现问题
如下
raised exception class EOleSysError with message '发生意外。'
不知道问题在哪里呀？？？？

[缘中人]

ole，妖哥出马，小case

[ccrun.com]

直接参考我站上的代码: http://www.ccrun.com/article.asp?i=635&d=g75jbn

[feiyue12300]

谢谢妖哥了。

[sinat_25866571]

楼主，小弟也碰到你这个问题了，求解决！！！妖哥的方法试过，不适用于StringGrid