Question

delphi怎么把EXCEL种的记录追加到ACCESS数据库的表中？

delphi连接的ACCESS库中有一些记录，想实现把EXCEL里的一些记录追加进去，怎么实现？

Answer 1

第一步先定义Excel变量：
var Excel:OleVariant;

第二步：打开Excel文件
Excel:=CreateOleObject( 'Excel.Application' );
Excel.WorkBooks.Open( sFileName ); //sFileName 是要打开的文件名，字符串型
Excel.WorkSheets[1].Activate;

第三步：读出Excel单元格的内容
Data:=trim(Excel.Cells[1,1].value); //Data是自己定义的字符串变量

第四步：将读出来的单元格内容构造成Sql语句执行。
例：
sql:='insert into TableName values()'; //sql语句字符串，自己构造
AdoQuery2.SQL.Clear;
AdoQuery2.SQL.Add(sql);
AdoQuery2.Prepared;
AdoQuery2.ExecSQL;

第五步： Excel.Quit; //退出Excel

Answer 2

同意 tshaoguo 的回答