Question

用Delphi7 如何将EXCEL文件导入CXGRID控件中,希望把具体详细代码案例提供出来，谢谢啦！

最好是做个例子出来，谢谢。详细说明下。谢谢！

Answer 1

var
v,sheet:Variant;

//打开EXCEL文件
try
v:= CreateOleObject('Excel.Application');
v.visible:=true;
v.WorkBooks.Open( ExtractFilePath(Application.Exename)+'Price.xls' );
v.Workbooks[1].WorkSheets[1].Name := '商品价格表';
except
Showmessage('初始化Excel失败，可能没装Excel，或者其他错误；请重起再试。');
v.DisplayAlerts := false;//是否提示存盘
v.Quit;//如果出错则退出
exit;
end;

Sheet:= v.Workbooks[1].WorkSheets[1]; //第一个工作表

Sheet.Cells[行的值,列的值] 即可取出相应的值 通过循环写入到CXGRID即可

追问

能写的更详细吗？把通过循环写入的也表达出来，具体除了CXGIRD外，还用到那几个控件，也说下，希望我通过复制你的代码能直接成功，因为我是新手，再次深深谢谢！比如我把产品编号，产品名称，规格型号，单价，数量，金额这样的内容，导入到CXGRID中，能否给我写下呢。谢谢！

追答

我这个是操作EXCEL的 ，我已经测试写入和读取都没有问题了 至于XCGRID ,不好意思哈。我没用过这个控件。抱歉