Question

如何将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即可