Question

Delphi XE2 如何导入Excel文件资料到grid表

Answer 1

两种方式：一种把Excel当作数据源，用ado连接可以直接显示到dbgrid中，另一种是利COM或第三方组件打开Excel文件，逐格写入到StringGrid中

追问

能否写个代码例子，让我看看，原来老版本DELPHI中有直接控件“ExcelApplication1”的，现在都没了。还有就是反向如何向Excel进行编辑操作，不利用第三方控件如何实现。

追答

窗体上放置一个oleContainer,加载Excel文件用loadfromFile
下列代码是创建一个新Excel文件,演示了如何获取对应 的格子内的数据,把这些数据导入到数据表中应该会了罢?
var excel,sheet,p:OleVariant;
begin
p := EmptyParam;

oleContainer1.CreateObject('Excel.Sheet', False);
excel:= oleContainer1.OleObjectInterface as IDispatch;
oleContainer1.DoVerb(ovShow);
sheet:=excel.Sheets[1];
sheet.Cells[1,1]:= '测试';
ShowMessage(sheet.Cells[1,1]);
end;