不重要的部分省略，不过有点基础的人都应该看得懂吧
form1上用到的几个控件有：button1；DataSource1；ADOConnection1；ADOTable1；OpenDialog1；DBGrid1。ADOConnection1控件连接了1个access数据库。excel表格式要对应access数据库。为简单，我就设2个字段：ID,name都用文本类型。
use comobj,excel97,excel2000;  
var                      //定义变量
  Form1: TForm1;
EXLfile:string;
  sheet,XLApp,workbook : variant; 
  iRow,MaxRow,i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
EXLfile:=opendialog1.FileName;
 edit1.Text:=EXLfile;
 screen.Cursor:=crHourGlass;  
  try
    //创建对象
    XLApp:=createOleObject('Excel.Application');
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=false;
    XLApp.WorkBooks.Add(EXLfile);
    workbook := XLApp.workbooks[1];
    sheet:=workbook.worksheets[1];
    //sheet:=XLApp.WorkBooks[1].worksheets[1];

   //得到最大行数  maxRow
    XLApp.ActiveCell.SpecialCells(xlLastCell).Select;
    maxRow:=XLApp.ActiveCell.Row;     //最大行数

    //写数据到access库
    ADOTable1.open; 
    for iRow:=2 to MaxRow do //  循环次数为excel最大行数字-1，因为excel的第1行为ID name表头。
    begin
      ADOTable1.Append ;
     ADOTable1.fieldByName('ID').asString:=sheet.cells[iRow,1]; //导入      ADOTable1.fieldByName('name').asString:=sheet.cells[iRow,2]; //导入      ADOTable1.post;
    end;








finally
    if not VarIsEmpty(XLApp) then begin  //释放对象
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;

      XLApp.quit;
    end;
    screen.Cursor:=crDefault;

end;
end;
end;


该程序是我在网上找的，运行后，导入成功，不过有个问题是该程序最后“释放对象”
的功能并未成功，程序运行后，桌面excel就不能正常运行了，可以打开，但不能看到内容，只有注销电脑或重启电脑，excel才能重新使用，据我判断应该就是对象创建后没被正确释放，excel始终被占用着，小弟接触delphi不久，对他这个创建对象不熟悉，希望有大虾来改进下这段程序。本人找了很多excel导入access的delphi程序，这个是看到最简洁的，大家来帮帮忙吧。