用ole,假设excel文件中有3列
var
eapp,workbook,worksheet:variant;
i,j:integer;
begin
eapp:=createoleobject('excel.application');
eapp.workbooks.open('c:\lzj.xls');
eapp.visible:=false;
workBook:=msexcel.activeworkbook;
worksheet:=workBook.worksheets[1];
for i=1 to worksheet.UsedRange.Rows.Count do
begin
query1.fields[0].value:=worksheet.cells[i,1].value
query1.fields[1].value:=worksheet.cells[i,2].value
query1.fields[2].value:=worksheet.cells[i,3].value
query1.next;
end;
workbook.close;
eapp.quit;
eapp:=unassigned;
end;
随便写的,不一定准确,但意思是对的.