var
excelx,excely,excelz:string;
excelapp,workbook:olevariant;
excelrowcount,i:integer;
begin
ifopendialog.executethen
begin
try
excelapp:=createoleobject(‘excel.application’);
//workbook:=excelapp;
workbook:=excelapp.workbooks.open(opendialog.filename);//使用opendialog对话框指定
//excel档路径
excelapp.visible:=false;
excelrowcount:=workbook.worksheets[1].usedrange.rows.count;
withquery1do
begin
close;
sql.clear;
sql.add(‘deletefromcode’);//再次导入的时候把以前的导入记录删除
execsql;
end;
fori:=2toexcelrowcount+1do
begin
excelx:=excelapp.cells[i,2].value;//导出第二列的数据
excely:=excelapp.cells[i,17].value;//导出第17列的数据
withquery1do
begin
close;
sql.clear;
sql.add(‘insertintocode(kahao,bumen)values(:a,:b)’);
parameters.parambyname(‘a’).value:=excelx;//excel档的第一列插入到aa表的a栏位;
parameters.parambyname(‘b’).value:=excely;//excel档的第二列插入到aa表的b栏位;
execsql;//你要导出几列，自己定义
end;
end;
finally
workbook.close;
excelapp.quit;
excelapp:=unassigned;
workbook:=unassigned;
showmessage(‘导入成功！’);
end;
end;
偶用过了的。可以用！
一些不必要的东西自己去掉！
